■  出力ファイルにシーケンス番号を入れる

出力ファイルの任意のカラムに任意の長さでシーケンス番号を入れることができます。

//SORT EXEC SORT //SYSPRINT DD SYSOUT=* //SORTIN DD DSN=MYFILE.INPUT,DISP=SHR //SORTOUT DD DSN=OUTFILE,DISP=(NEW,KEEP),DCB=(RECFM=FB,LRECL=80)･･･ //SYSIN DD * OPTION COPY OUTFIL FNAMES=SORTOUt OUTREC=(SEQNUM,4,ZD,START=1,INCR=1, ←４バイトのキャラクターで、１から１ずつカウントアップして採番 SEQNUM,2,PD,START=10,INCR=2, ←２バイトのパックで、１０から２ずつカウントアップして採番 74X) /*

          実行結果例(HEX VERT)

********************************** TOP OF DATA ********************************** ------------------------------------------ 0001 FFFF004444444444444444444444444444444444… 00011C0000000000000000000000000000000000 ------------------------------------------ 0002 FFFF004444444444444444444444444444444444… 00012C0000000000000000000000000000000000 ------------------------------------------ ********************************** BOTTOM OF DATA **********************************

BEFORE PAGE

TOP PAGE