JCL DD Statement: 1 //OUTFILE DD DSNAME=OUT171,UNIT=SYSDA,SPACE=(TRK,(50,5)), // DCB=(BLKSIZE=400) /* Enterprise COBOL Program Code: ENVIRONMENT DIVISION. INPUT─OUTPUT SECTION. FILE─CONTROL. SELECT CARPOOL 2 ASSIGN TO OUTFILE 1 ORGANIZATION IS SEQUENTIAL ACCESS IS SEQUENTIAL. . . . DATA DIVISION. FILE SECTION. FD CARPOOL 2 LABEL RECORD STANDARD BLOCK CONTAINS 0 CHARACTERS RECORD CONTAINS 80 CHARACTERS
//OUTFILE DD DSNAME=OUT171 …
ASSIGN TO OUTFILE
SELECT CARPOOL FD CARPOOL
FILE SECTION.
FD COMMUTER-FILE-MST
RECORDING MODE IS V
RECORD CONTAINS 10 TO 50 CHARACTERS.
01 COMMUTER-RECORD-A PIC X(10).
01 COMMUTER-RECORD-B PIC X(50).
DD ステートメントまたは割り振りで指定する LRECL は 54 にする必要があります。