条件によってレコードを作り出す方法

■ 条件によってレコードを作り出す方法
//SORT1 EXEC SORT

//SORTIN DD *

A123456789022222222223333333333

B123456789022222222223333333333

C123456789022222222223333333333

//SORTOUT DD DSN=OUTFILE,DISP=(NEW,KEEP),DCB=(RECFM=FB,LRECL=10)･･･

//SYSIN DD *

  OPTION COPY

  OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'A'),BUILD=(2,1,8X,10,1)),

  OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'B'),BUILD=(2,10)),

  OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'C'),BUILD=(C'XXXXXXXXXX'))

/*

※この例は、１バイト目がAの場合は、２バイト目から１バイト・８バイトの空白・１０バイト目から１バイトのレコードを作り出し、

  １バイト目がBの場合は、２バイト目から１０バイトのレコードを作り出し、

  １バイト目がBの場合は、固定値'XXXXXXXXXX'のレコードを作り出す例です。



（出力例）
********************************* データの始め ******
1        9                                            
1234567890                                            
XXXXXXXXXX                                           
********************************* データの終り ******

BEFORE PAGE

TOP PAGE

//SORT1	EXEC	SORT
//SORTIN	DD	*
A123456789022222222223333333333
B123456789022222222223333333333
C123456789022222222223333333333
//SORTOUT	DD	DSN=OUTFILE,DISP=(NEW,KEEP),DCB=(RECFM=FB,LRECL=10)･･･
//SYSIN	DD	*
OPTION COPY
OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'A'),BUILD=(2,1,8X,10,1)),
OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'B'),BUILD=(2,10)),
OUTREC IFTHEN(WHEN(1,1,CH,EQ,C'C'),BUILD=(C'XXXXXXXXXX'))
/*
※この例は、１バイト目がAの場合は、２バイト目から１バイト・８バイトの空白・１０バイト目から１バイトのレコードを作り出し、
１バイト目がBの場合は、２バイト目から１０バイトのレコードを作り出し、
１バイト目がBの場合は、固定値'XXXXXXXXXX'のレコードを作り出す例です。