&CONTROL OFF
&ERROR &EXIT &RETCODE
&IF &INDEX LE 0 &GOTO -QUERY
FI OPTIONS DISK OPTIONS KIT A ( RECFM F LRECL 80
FI OCODE DISK &1 OCODE A ( RECFM V LRECL 84
FI SYSIN DISK &1 BCPL8086 A ( RECFM V LRECL 137
FI SYSPRINT DISK &1 LISTING A(CHANGE RECFM VBA LRECL 137 BLOCK 800
FI SYSTERM T ( RECFM FA LRECL 121
KITCOMP
FI * CLEAR
&EXIT &RETCODE
*
-QUERY &TYPE FILE?
&RETCODE = 4
&EXIT 4