| ■ いろいろなレングスのＶＢファイルのソート |  |
いろいろなレングスを含むＶＢをする場合で、ＳＯＲＴポジションがレコードによっては レングスを超える位置になる場合があります。
その場合は、VLSHRTをオプション指定するとそのレコードを 無視してＳＯＲＴします。
//SORT1 EXEC SORT //SORTIN DD DSN=INFILE1,DISP=SHR ←例えばレングス１０バイト // DD DSN=INFILE2,DISP=SHR ←例えばレングス２０バイト // DD DSN=INFILE3,DISP=SHR ←例えばレングス３０バイト //SORTOUT DD DSN=OUTFILE,DISP=(,KEEP),… //SYSIN DD * SORT FIELDS=(20,1,BI,A) ←２０バイト目でＳＯＲＴ OPTION VLSHRT /* ↑ この場合、INFILE1のポジションは無視します
※VLSHRTを指定しないと、ＳＯＲＴがユーザーＡＢＥＮＤします（Ｕ−２１８）
nn BYTE VARIABLE RECORD IS SHORTER THAN mm BYTE MINIMUM FOR FIELDS
ABEND=S000 U0218 REASON=00000000