         PROC P,8
IMS#SCR  NAME
//       IF  ('&P(1)' NE '')USRPK
// OPR 'DATA FILE &P(3) ON SYSRES ** USER DISK NOT SPECIFIED'
// DVC RES // LBL &P(2)  // LFD &P(6)  // SCR &P(6)
//       IF  ('&P(4)' EQ '')EROPR
//       IF  ('&P(8)' NE '')USRPK1
// DVC RES // EXT &P(5),C,,&P(7),&P(4) // LBL &P(2) // LFD &P(3),,INIT
// OPR 'FILE &P(3) ON SYSRES SCRATCHED AND INITIALIZED'
//       GO    EXIT
//USRPK1 NOP
// DVC RES  // EXT &P(5),C,,&P(7),(&P(8),&P(4))
// LBL &P(2)  // LFD &P(3),,INIT
// OPR 'FILE &P(3) ON SYSRES SCRATCHED AND INITIALIZED'
//       GO    EXIT
//USRPK  NOP
// OPR 'DATA FILE &P(3) ON &P(1)'
// DVC 50  // VOL &P(1)  // LBL &P(2)  // LFD &P(6)  // SCR &P(6)
//       IF  ('&P(4)' EQ '')EROPR
//       IF  ('&P(8)' NE '')USRPK2
// DVC 50  // VOL &P(1)  // EXT &P(5),C,,&P(7),&P(4)
// LBL &P(2)  // LFD &P(3),,INIT
// OPR 'FILE &P(3) ON &P(1) SCRATCHED AND INITIALIZED'
//       GO    EXIT
//USRPK2 NOP
// DVC 50  // VOL &P(1)  // EXT &P(5),C,,&P(7),(&P(8),&P(4))
// LBL &P(2)  // LFD &P(3),,INIT
// OPR 'FILE &P(3) ON &P(1) SCRATCHED AND INITIALIZED'
//       GO    EXIT
//EROPR  NOP
// OPR 'NR OF CYL ON // EXT CARD MISSING FOR FILE &P(3)'
//EXIT   NOP
         END
