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