Mainframe
FB : Fixed length (blocked).
FBA : Fixed length (blocked, ANSI format)
- 1 byte is reserved for printing control character
VB : Variable length (blocked).
- 앞에 4바이트(4-byte RDW)가 있으므로, 정렬을 하기 위해 컬럼을 찾을 때 +4
FB 포맷을 VB 포맷으로 변경(Converting FB to VB)
- LRECL=100 인 FB 데이터셋이 LRECL=104 인 VB 데이터셋으로 변경된다.
//FBVB JOB A92,PROGRAMMER
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A123456.SORT.SAMPIN,DISP=SHR
//VBOUT DD DSN=A123456.SORT.VSAMP,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=VBOUT,FTOV
/*
VB 포맷을 FB 포맷으로 변경(Converting VB to FB)
- LRECL=104 인 VB 데이터셋이 LRECL=100 인 FB 데이터셋으로 변경된다.
//VBFB JOB A92,PROGRAMMER
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A123456.VBIN,DISP=SHR
//FBOUT DD DSN=A123456.FBOUT,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=FBOUT,VTOF,OUTREC=(5,100)
/*
참고
إرسال تعليق