Welcome to the Lounge

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID.       SLEEVE.
000030 AUTHOR.           NAGY VILMOS.
000040 DATE-WRITTEN.     2014-03-25
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080     SELECT GRIFF-FILE     ASSIGN TO SYSIN
000090         ORGANIZATION IS LINE SEQUENTIAL.
000100     SELECT VILMOS-FILE       ASSIGN TO SYSOUT
000110         ORGANIZATION IS LINE SEQUENTIAL.
000120
000130 DATA DIVISION.
000140 FILE SECTION.
000150 FD  GRIFF-FILE
000160     RECORD CONTAINS 80 CHARACTERS
000170     DATA RECORD IS GRIFF-IN.
000180 01  GRIFF-IN
000181	   05   SOURCE           PIC X(11).
000182	   05   FILLER           PIC X(69).
000190
000200 FD  VILMOS-FILE
000210     RECORD CONTAINS 80 CHARACTERS
000220     DATA RECORD IS VILMOS-OUT.
000230 01  VILMOS-OUT            PIC X(80).
000240
000250 WORKING-STORAGE SECTION.
000260 01  DATA-REMAINS-SWITCH     PIC X(2)      VALUE SPACES.
000261 01  RECORDS-WRITTEN         PIC 99.
000270
000320 PROCEDURE DIVISION.
000321
000330 TRANSFER-LAPTOP-SLEEVE.
000340     OPEN INPUT  GRIFF-FILE
000350          OUTPUT VILMOS-FILE.
000351     MOVE ZERO TO RECORDS-WRITTEN.
000360     READ GRIFF-FILE
000370         AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
000380     END-READ.
000390     PERFORM TRANSFER-LAPTOP-SLEEVE
000410         UNTIL DATA-REMAINS-SWITCH = 'NO'.
000420     CLOSE GRIFF-FILE
000430           VILMOS-FILE.
000440     STOP RUN.
000450
000460 TRANSFER-LAPTOP-SLEEVE.
000470     MOVE GRIFF-IN TO VILMOS-OUT.
000480	   IF SOURCE = 'CODEPROJECT'
000490        WRITE VILMOS-OUT.
000500     READ GRIFF-FILE
000510         AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
000520     END-READ.