*NOSEQ 
IPRD00
*
*         IPRDECK FOR ALL MAINFRAMES EXCEPT SUPERMINI.
*
*CALL COMLIPR
*WEOR
IPRD01
*
*         IPRDECK FOR SUPERMINI.
*
*CALL COMLIPR
*
*         SPECIAL SUPERMINI CHANGES.
*
DISABLE,BIO.
DISABLE,SPINDOWN.
ENABLE,MAG,23.
DSD,0,MAI%X.QREC(DA=ALL,PO=NU)%SET,ARQT.
DSD,1,SET,ARQT.%AUTO.
TDEN=GE.