DMKSYS Source

SYS      TITLE 'DMKSYS FOR 3350    RELEASE 6'                           DMK00010
DMKSYS   CSECT                                                          DMK00020
         COPY   OPTIONS                                                 DMK00030
         SYSOWN (VM50-1,TEMP),(VM50-2,PAGE),(VM50-3,TEMP),(VM50-4,PAGE) DMK00040
         SYSRES SYSVOL=VM50-1,SYSRES=231,SYSTYPE=3350,                 XDMK00050
               SYSNUC=530,SYSWRM=551,SYSERR=552,SYSCKP=553              DMK00060
         SYSMON AUTO=YES,USERID=MAINT                                   DMK00070
         SYSJRL                                                         DMK00080
         AIF (NOT &AP).E1                                               DMK00090
         SYSCOR RMSIZE=16384K,AP=YES                                    DMK00100
.E1      AIF (&AP).E2                                                   DMK00110
         SYSCOR RMSIZE=16384K,AP=NO                                     DMK00120
.E2      SYSOPR SYSOPER=OPERATOR,SYSDUMP=MAINT                          DMK00130
         SYSTIME ZONE=0,LOC=WEST,ID=GMT                                 DMK00140
         SYSLOCS                                                        DMK00150
         END                                                            DMK00160
                                                                        DMK00170
                                                                        DMK00180