Type ASSEMBLE
Source Lines : 332
Fixes Applied : 0
Most Recent Version : Thursday, December 14, 1978
Last Fix ID : [Unmodified]

Module

       DMKNMT (IMAGELIB)

Function

       CONSTRUCT AN IMAGE LIBRARY FROM TEXT FILES ON USER DISKS
       AND CREATE OR REPLACE THAT IMAGE LIBRARY VIA DIAG CODE X'74'
       A CONTROL FILE IS USED TO CONSTRUCT THE IMAGE LIBRARY.

Attributes

       DISK RESIDENT AS 'IMAGELIB', LOADED INTO CMS USER AREA,
       CALLED VIA SVC 202, SERIALLY RESUABLE

Operation

       1.    VERIFY THE EXISTENCE OF THE CNTRL FILE.  IF IT DOES
             NOT EXIST, EXIT WITH RC=4 AND NO MESSAGE.
             OTHERWISE, CONTINUE.
             CREATE A DUMMY DIRECTORY ENTRY WHICH WILL BE USED
             TO HOLD THE NUMBER OF ENTRIES AND SET THE START
             OF DATA TO BE 3 PAGES PAST THE START OF THE DIRECTORY.
             THIS ALLOW FOR A MAXIMUM OF 3 PAGES OF DIRECTORY.

       2.    READ THE NEXT LINE IN THE CNTRL FILE.  IF END OF FILE,
             GO TO STEP 6. OTHERWISE CONTINUE.

       3.    IF THE TEXT FILE DOES NOT EXIST, EXIT WITH DMKNMT248E.

       4.    LOAD THE INDICATED TEXT FILE INTO THE TRANSIENT AREA.
             IF ERROR, EXIT WITH ERROR MESSAGE DMKNMT249E.

       5.    ALLOWING 3 PAGES FOR THE DIRECTORY AREA, CREATE A
             NEW DIRECTORY ENTRY AFTER THE LAST, AND MOVE THE
             FILE FROM THE TRANSIENT AREA INTO THE NEXT AVAILABLE
             LOCATION IN THE USER AREA.  IF IT EXCEEDS AVAILABLE
             STORAGE, EXIT WITH DMKNMT256E.  OTHERWISE, UPDATE
             THE POINTERS TO THE NEXT AVAILABLE DIRECTORY ENTRY
             AND NEXT AVAILABLE DATA AREA.  THEN GO TO STEP 2.

       6.    ENTER THE TOTAL NUMBER OF MEMBERS INTO THE FIRST
             DUMMY ENTRY, MOVE THE DATA AREA SO THAT IT
             IMMEDIATELY FOLLOWS THE DIRECTORY, AND ALTER THE
             DISPLACEMENTS IN EACH DIRECTORY ENTRY.

       7.    ISSUE DIAGNOSE X'74' TO SAVE THE NAMED SYSTEM.
             IF THE RETURN CODE IS 0, ISSUE DMKNMT247I.
             OTHERWISE, ISSUE DMKNMT254E.

       8.    RETURN TO CALLER WITH APPROPRIATE RETURN CODE.

Calls to Other Routines

       FSSTATE  - SEE IF CNTRL AND TEXT FILES EXIST
       FSREAD   - READ IN THE CNTRL FILE
       CMS LOAD - LOAD THE TEXT FILE INTO THE TRANSIENT AREA