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