000001************************************************************************** 000002* 000003************************************************************************** 000004 IDENTIFICATION DIVISION. 000005 PROGRAM-ID. LCVSF196. 000006* 000007 ENVIRONMENT DIVISION. 000008 INPUT-OUTPUT SECTION. 000009 FILE-CONTROL. 000010 SELECT AAFILE ASSIGN INFILEA 000011 ORGANIZATION LINE SEQUENTIAL 000012 FILE STATUS XXA. 000011 SELECT BBFILE ASSIGN INFILEB. 000012* 000013 DATA DIVISION. 000014 FILE SECTION. 000015 FD AAFILE. 000016 01 A1REC. 000017 02 A01 PIC X(512). 000018 FD BBFILE. 000019 01 B1REC. 000020 02 B01 PIC X(196). 000021 WORKING-STORAGE SECTION. 000022 01 INFILEA. 000023 02 INFILEA1 PIC X(07). 000024 02 FILLER PIC X(04) VALUE ".dat". 000025 01 INFILEB. 000026 02 INFILEB1 PIC X(07). 000027 02 FILLER PIC X(05) VALUE "a.dat". 000035 01 XXA PIC XX. 000028* 000029 PROCEDURE DIVISION. 000030 MAIN SECTION. 000031 IP0. 000032 DISPLAY "ファイル名" WITH NO ADVANCING. 000033 ACCEPT INFILEA1. 000034 MOVE INFILEA1 TO INFILEB1. 000035 OPEN INPUT AAFILE. 000036 OPEN OUTPUT BBFILE. 000037 IP2. 000038 READ AAFILE AT END GO TO OWARI. 000039 MOVE A01 TO B01. 000040 WRITE B1REC INVALID GO TO OWARI. 000041 GO TO IP2. 000042 OWARI. 000043 CLOSE AAFILE BBFILE. 000044 STOP RUN. 000045