&CONTROL OFF NOMSG
&ERROR &EXIT &RETCODE
&IF &INDEX LE 0 &GOTO -QUERY
FI OCODE DISK &1 OCODE A ( RECFM V LRECL 84
FI CODE DISK &1 HUNK  A ( RECFM V LRECL 84
FI SYSPRINT T (CHANGE RECFM VA LRECL 137 LOWCASE
FI SYSTERM T (CHANGE RECFM VA LRECL 137 LOWCASE
FI SYSIN T (CHANGE RECFM F LRECL 80
&ERROR &CONTINUE
BCPL8086 W10000&2
FI * CLEAR
&EXIT &RETCODE
*
-QUERY EX HELP BCPL8086
&RETCODE = 4
&EXIT 4