IPRDECK 
*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.
