*DECK PGMDECKS
*CALL,LABEL 
*CALL,CONST 
*CALL CONSTUSR
*CALL TYPE
*CALL TYPEUSER
*CALL,VAR 
*CALL VARUSER 
*CALL,VALUE 
*CALL VALUSER 
*CALL FORWARD 
*CALL FORWDUSER 
*CALL PINIT 
*CALL PIPROTECT 
*CALL PINCBINIT 
*CALL PILCBINIT 
*CALL PILCBS
*CALL PIGETABLE 
*CALL PIBUF1
*CALL PIFR1 
*CALL PIWLINIT
*CALL NCB 
*CALL PIINIT
*CALL PIAPPS
*CALL PIMLIA
*CALL PILININIT 
*CALL PITMRSRVS 
*CALL PIBUF2
*CALL,PBMEMBER
*CALL PBLCBP
*CALL,PBMIN 
*CALL PBSTRIP 
*CALL PBPUTYP                                                              31OCT
*CALL PBXFER
*CALL 18BITSUBS 
*CALL PBBFAVAIL 
*CALL SSRVS                                                                31OCT
*IF DEF,X25,1 
*CALL PN5SRCH 
*IF DEF,X25DEBUG,1
*CALL PNTSMON 
*CALL,PBFMAH
*CALL,PBTOAH
*IF DEF,CONSOLE 
*CALL P1TOAH
*CALL,PBREAD
*CALL,PBWRITE 
*CALL,PBTESTIOR 
*CALL,PBQUICKIO 
*CALL,PBTIMEOUT 
*CALL,PBSTARTIO 
*CALL,PBIOSERV
*CALL,PBOFMT
*CALL,PBDRCOMPL 
*CALL,PBTTYSETM 
*CALL,PBTTYINT
*CALL PBSUPMSG                                                           UPDATES
*CALL PBIFMT
*CALL PBIOTMR 
*CALL PBCONSOLE 
*ENDIF
*CALL PBMLIA
*CALL PBCLKINI
*CALL PB100MS 
*CALL PBTMRSRVS 
*CALL PBTOQUE 
*CALL,PBTIMAL 
*CALL PBCHKREG
*CALL PBLCBTMSC 
*CALL,PBLLENTR
*CALL,PBLLRMOV
*IF DEF,TUP 
*CALL PNTUPTCB
*CALL PBTUPDUMP 
*CALL PBDMPREG
*CALL,PBDECODET 
*CALL,PBTUP 
*CALL,PBTUPBREA 
*CALL,PB1SNAP 
*CALL PB2SNAP 
*CALL PBWRAPSNA 
*CALL,PBBREAKPO 
*ENDIF
*CALL PMCOIN
*CALL PBCOIN                                                             CC4
*CALL PMCDRV
*CALL PMWOLP
*CALL PTCLAS
*CALL PMT1SEC 
*CALL PTLINIT                                                            CC4
*CALL PNSGATH                                                            UPDATES
*CALL PNCEFILE
*CALL PNCECNT                                                            CC4
*CALL TIPSUBS                                                            CC4
*CALL PTREGL
*IF,DEF,PERFORM,1 
*CALL,PBPERFORM 
_$J+? 
*CALL USERAPPS
*CALL QDEBUG
*CALL PBCLR 
*IF DEF,CONSOLE 
*CALL PBDISPLAY 
*ENDIF
*CALL PBLOAD
*CALL PBILL 
*CALL PBTOPHAT
*CALL PGHALT
*CALL PBMON 
*CALL TIMANAL 
*CALL MAIN
*WEOR 
