&CONTROL OFF
&ERROR &EXIT &RETCODE
FI SYSIN DISK &1 HUNK *(RECFM V LRECL 132 CHANGE
FI SYSPRINT PR(CHANGE RECFM VBA LRECL 137 BLOCK 800
FI SYSTERM T(LOWCASE CHANGE RECFM F LRECL 80
FI HUNKOUT DISK &1 OBJ A(CHANGE RECFM V LRECL 128
UNHEXIT