:READ  POWER    RDRSTART A1 CMS191 12/31/09  21:49
   ASSGN   SYSLST,X'00E'
   ASSGN   SYSPCH,X'00D'
   ASSGN   SYS000,SYSRES
   ASSGN   SYS001,SYSRES
   ASSGN   SYS002,SYSRES
// JOB     POWER       - INITIALIZE POWER SPOOLING SYSTEM
// OPTION  PARSTD
// DLBL    IJAFILE,'POWER/VS.ACCOUNTING.FILE',99/365,DA
// EXTENT  SYS000,SYSRES,1,0,9000,90
// DLBL    IJQFILE,'POWER/VS.QUEUE.FILE',99/365,DA
// EXTENT  SYS001,SYSRES,1,0,9090,120
// DLBL    IJDFILE,'POWER/VS.DATA.FILE',99/365,DA
// EXTENT  SYS002,SYSRES,1,0,6000,3000
// EXEC    PGM=POWER,SIZE=256K
FORMAT=NO
PSTART BG,0A
READER=00C
PRINTERS=00E,01E,02E,03E
PUNCHES=00D
PSTART F2,2
READER=00C
PRINTERS=00E
PUNCHES=00D
PSTART F3,3
READER=00C
PRINTERS=00E
PUNCHES=00D
PSTART F4,4A
READER=00C
PRINTERS=00E,01E,02E,03E
PUNCHES=00D
PSTART RDR,00C,A
PSTART LST,00E,A
PSTART LST,03E,L
PSTART PUN,00D,A
/*
