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 )