Type ASSEMBLE
Source Lines : 355
Fixes Applied : 1
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC106DK]

Module

       DMKSNC  - SAVE 370X CONTROL PROGRAM IMAGE
                 (DIAGNOSE CODE X'0050' FROM DMKHVCAL)

Function

       TO SAVE A PAGE FORM VERSION OF A NETWORK CONTROL PROGRAM
       THE NAME OF THE NCP AND THE DASD LOCATION AT WHICH IT IS TO BE
       SAVED IS DEFINED IN THE CP MODULE DMKSYS

Attributes

       RE-ENTRANT, PAGEABLE, CALLED VIA SVC

Operation

       1. TRANS IN AND LOCK THE NCPTBL.
       2. TRANS IN USER PAGE CONTAINING CCPARM.
       3. SCAN THE NCPTBL TO FIND THE ENTRY WITH AN  'NCPNAME' THAT
          MATCHES THE ENTRY FOR THE SPECIFIED 'CCPNAME'. IF NONE IS
          FOUND CALL DMKERMSG TO SEND ERROR MESSAGE DMKSNC044E.
       4. DETERMINE IF DASD STORAGE SPACE IS LARGE ENOUGH TO
         CONTAIN THE SAVED IMAGE AND RESOURCE DATA. IF NOT,
         CALL DMKERMSG TO SEND DMKSNC178E MESSAGE.
       5. CALL DMKSCNVS TO FIND THE VOLUME THAT IS TO CONTAIN THE
          SAVED NCP. IF NOT FOUND, CALL DMKERMSG TO SEND ERROR
          MESSAGE DMKSNC171E.
       6. DETERMINE STARTING DASD LOCATION AND NUMBER OF PAGES / CYL
         FOR NCPVOL DEVICE FROM NCPTBL DATA.
       7. SET UP GROUP OF RESOURCE PAGES (SPECIFIED IN THE CCPARM)
          TO BE SAVED.
       8. TRANS IN THE NEXT PAGE TO BE SAVED. CALL DMKRPAPT TO
          WRITE THE PAGE TO THE NCPVOL. IF AN I/O ERROR OCCURS, CALL
          DMKERMSG TO SEND DMKSNC435E MESSAGE.
       9. IF ALL THE PAGES IN THIS GROUP HAVE BEEN PROCESSED, GO TO
          STEP 10. ELSE - BUMP TO THE NEXT PAGE AND GO BACK TO
          STEP 8.
       10. SET UP GROUP OF NCP CORE IMAGE PAGES (SPECIFIED IN THE
          CCPARM) TO BE SAVED.
       11. TRANS IN THE NEXT PAGE TO BE SAVED. CALL DMKRPAPT TO
          WRITE THE PAGE TO THE NCPVOL. IF AN I/O ERROR OCCURS, CALL
          DMKERMSG TO SEND MESSAGE DMKSNC435E.
       12. IF ALL THE PAGES IN THIS GROUP HAVE BEEN PROCESSED, GO TO
          STEP 13. ELSE - BUMP TO THE NEXT PAGE AND GO BACK TO
          STEP 11.
       13. CALL DMKPTRUL TO UNLOCK THE NCPTBL.
       14. SET RETURN CODE AND EXIT TO CALLER.

Calls to Other Routines

       DMKQCNWT - TO WRITE MESSAGE TO CONSOLE
       DMKPTRUL - TO UNLOCK A PAGE
       DMKSCNVS - TO FIND A VOLUME
       DMKRPAPT - TO WRITE A PAGE ON BACKING DEVICE
       DMKCVTBH - TO CONVERT BINARY TO HEX
       DMKPTRAN - LOCATE AND FETCH A PAGE OF VIRTUAL STORAGE
       DMKERMSG - TO SEND ERROR MESSAGES TO TERMINAL