Type ASSEMBLE
Source Lines : 639
Fixes Applied : 1
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R11046DS]

Module

       DMSRNE

Function

       PROVIDE INTERFACE BETWEEN CMS EDITOR AND TSO'S
       ICDQRNMS ROUTINE. DMSRNE AND ICDQRNMS GENMODED
       TOGHETER AS 'RENUM' MODULE,  WILL RENUMBER ANY
       VSBASIC  OR  FREEFORT SOURCE PROGRAM CURRENTLY
       BEING EDITED.

Attributes

       SERIALLY REUSEABLE
       TRANSIENT MODULE
       DISK RESIDENT

Operation

       1. SET UP NECESSARY ADDRESSABILITIES AND SAVE
       THE EDITOR'S REGISTERS.

       2. ENSURE THE FILETYPE IS VSBASIC  OR  FREEFORT
       AND SAVE THE STRTNO, INCRNO, AINCORE AND FSIZE.

       3. COMPUTE THE SIZE OF THE NUMBER TABLE AND INITIA-
       LIZE THE WRBUF PLIST (WORK FILE).

       4. VERIFY THAT THE DISK ORIGIN OF THE INPUT FILE
       IS A READ/WRITE DISK (FOR VSBASIC FILES ONLY).

       5. ACQUIRE THE NUMBER TABLE FORM FREE STORAGE, AND
       INITIALIZE THE TABLE WITH THE OLD NUMBERS BY CON-
       VERTING TO BINARY THE SEQUENCE NUMBER OF EACH RECORD
       IN THE FILE.

       6. ONCE THE OLD NUMBERS HAVE BEEN CONVERTED, THE
       NEW NUMBERS ARE COMPUTED FROM THE STRTNO AND INCRNO
       SPECIFIED BY THE USER, AND THE TABLE IS INITIALIZED
       WITH THE COMPUTED NEW NUMBERS. IF PROCESSING A FREE
       FORT FILE, SKIP TO STEP 10.

       7. ONCE THE NUMBER TABLE IS BUILT, A RECORD IS
       OBTAINED ( ONE AT A TIME ) AND A CALL IS MADE
       TO ICDQRNMS TO CONVERT THE LINE USING THE NUMBER
       TABLE PASSED AS A PARAMETER. ICDQRNMS WILL RETURN
       THE UPDATED RECORD IN AN OUTPUT BUFFER, AND ANY
       ERROR CONDITION FOUND IS DETECTED BY CHECKING A
       RETURN CODE IN THE RNMSRC FIELD OF THE ICDQRNMS
       PLIST. THE UPDATED RECORD IS WRITTEN TO A WORK FILE
       WITH THE FILEID 'RENUM CMSUT1 FM'.

       8. WHEN ALL RECORDS HAVE BEEN RENUMBERED, THE OUTPUT
       FILE IS CLOSED.

       9. NOW, THE WORK FILE IS READ AND THE INCORE COPY IS
       UPDATED TO CONTAIN THE RENUMBERED FILE. THEN THE
       WORK FILE IS ERASED AND CONTROL RETURNS TO EDIT.

       10. IF RENUMBERING A FREEFORT FILE, COLUMNS 1 THRU
       8, OF EACH RECORD IN THE INCORE COPY, ARE UPDATED
       TO THE NEW LINE NUMBERS COMPUTED IN STEP 6.
       THE UPDATE IS DONE IN-PLACE AND CONTROL RETURNS
       TO EDIT.

Calls to Other Routines

       DMSERS, DMSLADW, DMSBWR, DMSBRD, DMSFNS,
       AND ICDQRNMS ( TSO'S CONVERT )