Type ASSEMBLE
Source Lines : 1,184
Fixes Applied : 6
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC073DS]
Module
DMSEDX
Function
PERFORMS INITIALIZATION FOR THE CMS EDITOR.
Attributes
EXECUTES IN TRANSIENT AREA. REUSEABLE.
Operation
DMSEDX LOADED INTO THE TRANSIENT AREA OF VIRTUAL
MACHINE STORAGE AND EXECUTED AS A RESULT OF THE CMS
EDIT COMMAND BEING ISSUED. DMSEDX FIRST ATTEMPTS
TO LOAD A SAVED SYSTEM WITH THE NAME AT THE ENTRY
FOR 'SHREXEC' IN THE CMS NUCLEUS SAVED SYSTEM NAME
TABLE ''SYSNAMES''. IF THE NAME PROVIDED IS NOT
VALID, AN ATTEMPT IS MADE TO LOADMOD A DMSEXT MODULE
USING THE USER'S ACCESSED DISKS.
DMSEDX NOW ISSUES A DMSFREE FOR ALL BUT 15K OF
VIRTUAL MACHINE STORAGE. THE FIRST PART OF THIS
FREE STORAGE IS CLEARED TO X'0' AND ALLOCATED TO
TE EDCB (EDIT CONTROL BLOCK) WHICH IS USED BY ALL
EDIT ROUTINES. THE EDCB CONTAINS ALL NECESSARY
ASSIGNMENTS TO ALLOW THE CMS EDITOR TO BE REENTRANT
AND THEREFORE BE ALLOWED TO BE LOADED INTO A VM/370
SHARED SEGMENT.
DMSEDX THEN INITIALIZES EDCB WITH ALL NECESSARY
PLIST, ETC. REQUIRED BY EDIT ROUTINES.
DMSEDX SCANS THE EDIT COMMAND LINE FOR VALIDITY.
IF A REMOTE 3270 TERMINAL IS IN USE IT IS FORCED TO
OPERATE IN 2741 OR TYPEWRITE MODE TO CUT DOWN ON THE
AMOUNT OF DATA TRANSMITTED. THIS MODE CAN BE
OVERRIDDEN BY THE FORMAT SUBCOMMAND.
IF THE NODISP OPTION WAS SPECIFIED IN THE EDIT
COMMAND A 3270 TYPE TERMINAL IS FORCED TO OPERATE IN
2741 MODE FOR THE DURATION OF THE EDIT SESSION. NO
OVERRIDE IS ALLOWED.
IF THE FILE IS FOUND ON DISK BY THE CALL TO
DMSSTT, THE FILE IS READ FROM
DISK BY DMSBRD AND THE FILE PLACE IN THE EDIT FREE
STORAGE AREA WITH APPROPRIATE LINE POINTERS INCLUDED
IN EACH RECORD.
IF THE FILE IS NOT FOUND ON DISK, STORAGE IS
INITIALIZED AND A MESSAGE IS TYPED TELLING THE
USER THE FILE IS NEW.
AT THIS TIME THE FILE ATTRIBUTES, EXISTING,
SPECIFIED, OR DEFAULTED, ARE MOVED TO THE PROPER
AREA IN EDCB.
DMSEDX THEN BRANCHES TO THE MAIN EDIT ROUTINE.
Calls to Other Routines
DMSSTT,DMSERR,DMSEDF,DMSBRD,DMSFNS,DMSFREE,DMSFRET
DMSKEY,DMSCWT