■ MERGEのサンプル
//SORT1 EXEC SORT //SORTIN01 DD * 00111111 99999999 //SORTIN02 DD * 01010101 02020202 //SORTIN03 DD * 03030303 33333333 //SORTOUT DD DSN=OUTFILE,DISP=(,KEEP),… //SYSIN DD * MERGE FIELDS=(1,3,CH,A,4,5,CH,A) /* 実行結果
00111111 ←SORTIN01 01010101 ←SORTIN02 02020202 ←SORTIN02 03030303 ←SORTIN03 33333333 ←SORTIN03 99999999 ←SORTIN01
※INPUTファイル内でSORT順が保たれていないと、ABENDします。
USER COMPLETION CODE=0068 TIME=12.06.58 SEQ=02739 CPU=0000 ASID=0012 PSW AT TIME OF ERROR 078D1000 00013CE0 ILC 2 INTC 0D ACTIVE LOAD MODULE ADDRESS=00010000 OFFSET=00003CE0 NAME=ICEMPUT