Type ASSEMBLE
Source Lines : 3,889
Fixes Applied : 7
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R13316DS]
Function
INTERFACE MODULE WHICH ALLOWS CLASS C, E OR
F VIRTUAL USERS TO EDIT AND PRINT VM/370
ERROR RECORDINGS UNDER CMS VIA THE OS/VS EREP
EDIT AND PRINT PROGRAM - IFCEREP1.
INTERFACE IS ALSO PROVIDED FOR CLEARING THE VM/370
ERROR RECORDING CYLINDERS BY A CLASS F USER.
Operation
1. PERFORM STANDARD LINKAGE AND ADDRESSABILITY FUNCTIONS.
2. INVOKE CMS LOAD FUNCTION TO LOAD AND RESOLVE VCON'S IN
ABOUT A DOZEN EREP OBJECT DECKS. (NOTE: ALL OTHER EREP
OBJECT DECKS GET BROUGHT INTO STORAGE LATER, AS NEEDED,
BY OS LOAD AND LINK MACROS ISSUED BY OS/VS EREP.)
3. INVOKE 'STRINIT' FUNCTION. INDICATES THAT AREA ABOVE
PRESENTLY LOADED PROGRAMS IS BEGINNING OF FREE STORAGE.
(NOTE: OS LOAD AND LINK WILL ACQUIRE SPACE FROM FREE
STORAGE TO CONTAIN THE PROGRAMS THEY LOAD.)
4. TURN OFF THE 'DOSSVC' FLAG IN THE CMS NUCLEUS SO THAT
OS SIMULATION IS USED. BUT SAVE A COPY OF 'DOSSVC' SO IT
CAN BE RESTORED LATER.
SET COMPSWT IN CMS NUCLEUS SO THAT OS LOAD AND LINK MACROS
BRING IN TEXT (OR TXTLIB) FILES RATHER THAN MODULE FILES.
4X. INVOKE OS LOAD TO LOAD DMSREA INTO STORAGE. SAVE ITS
ADDRESS SO DMSREA CAN BE CALLED LATER DURING THE EXCP
SIMULATION.
5. ESTABLISH HANDLING OF SVC 76 (ERROR LOG), SVC 18 (BLDL),
AND SVC 0 (EXCP).
6. INVOKE 'FILEDEF' FUNCTION TO DEFINE: (1) PRINTER FILE FOR
EREP, (2) SYSIN FILE TO BE CREATED FOR EREP, (3) DUMMY FILE
FOR EREP TO OPEN AND CLOSE AS SYS1.LOGREC (FILE IS A
DUMMY BECAUSE ATTEMPTED I/O ACTIVITY IS VIA EXCP WHICH
WILL BE INTERCEPTED), (4) 'TOURIST' ERROR FILE TO THE
TERMINAL, AND (5) THE 'DIRECTWK' WORK FILE ON DISK.
7. GET THE COMMAND LINE ARGUMENTS AND DETERMINE IF A CONTROL
FILE IS PROVIDED FOR INPUT. IF SO, SET UP TO READ
PARAMETERS FROM THE CONTROL FILE; OTHERWISE SET UP
TO READ PARAMETERS FROM THE TERMINAL.
8. ISSUE A DMSFREE MACRO TO GET CORE IN WHICH TO BUILD AN
OS 'PARM' LIST TO BE PASSED TO EREP.
9. GET INPUT PARAMETERS (FROM CONTROL FILE OR TERMINAL) AND
CONSTRUCT EQUIVALENT OS/VS EREP PARM LIST AND SYSIN CONTROL
CARD FILE.
10. IF CLEAR WAS SPECIFIED AND IT WAS NOT THE ONLY PARAMETER
SPECIFIED, THEN TYPE ERROR MESSAGE TO TERMINAL AND
SKIP TO 17.
11. IF CLEAR WAS SPECIFIED (CORRECTLY), CALL A SUBROUTINE TO
ISSUE THE DIAGNOSE THAT ZEROS OUT THE VM ERROR CYLINDERS,
THEN SKIP TO 17.
12. INVOKE 'FILEDEF' TO DEFINE THE ACCUMULATION TAPE FILE
IF REQUESTED. ISSUE THE TAPE CONTROL MACROS NECESSARY TO
POSITION THE TAPE FOR SUBSEQUENT WRITE OPERATIONS.
13. INVOKE 'FILEDEF' TO DEFINE THE HISTORY INPUT TAPE IF
REQUESTED. AND BE SURE IT IS REWOUND.
14. LINK TO OS/VS EREP (IFCEREP1).
15. SIMULATE BLDL SVC'S ISSUED FROM OS/VS EREP.
SIMULATE EXCP SVC'S ISSUED FROM OS/VS EREP SO THEY WILL
APPEAR TO ACCESS A SYS1.LOGREC DATA SET; SIMULATION WILL
RESULT IN CALLS TO DMSREA TO GET RECORDS FROM VM/370 ERROR
RECORDING CYLINDERS; AN EXCP THAT ATTEMPTS TO RE-WRITE
THE SYS1.LOGREC HEADER IS A RESULT OF THE 'ZERO' FUNCTION
AND IS SIMULATED BY CALLING A SUBROUTINE TO ISSUE THE
DIAGNOSE THAT ZEROS OUT THE ERROR RECORDING CYLINDERS.
16. EVENTUALLY OS/VS EREP IS DONE AND CONTROL RETURNS HERE
FROM THE 'LINK' DONE AT 14. ABOVE
17. HOUSEKEEP ALL INDICATORS AND SWITCHES. FRET ANY CORE
OBTAINED FOR THE OS 'PARM' AREA. CLEAR HANDLING OF
SVC'S 0, 18, AND 76. CLEAR ANY FILDEFS THAT WERE SET UP
BY CPEREP.
18. EXIT TO CMS.
Calls to Other Routines
IFCEREP1 - LINK TO OS/VS EREP PROGRAM WITH R1 CONTAINING
THE ADDRESS OF A FULLWORD WHICH IN TURN
CONTAINS THE ADDRESS OF AN OS FORMAT PARM
LIST. THE PARM LIST WILL BE AS FOLLOWS:
--------------------------------------
|CC| VARIABLE LENGTH CHARACTER STRING
______________________________________
WHERE CC IS A TWO BYTE COUNT OF THE NUMBER
OF CHARACTERS OF PARAMETERS THAT FOLLOW.
THE VARIABLE LENGTH CHARACTER STRING WILL
CONSIST OF ANY PARAMETERS PASSED TO THIS
PROGRAM THAT ARE NOT RECOGNIZED AS 'CLEAR'
COMMANDS OR 'SHARE=' OR 'CTLCRD=' OR 'TERMINAL'
OR 'CONTROLLER='.
THERE WILL BE COMMAS BETWEEN THE PARAMETERS
IN THE PARM LIST.
DMSREA - CALLED VIA BALR, IT READS A SPECIFIED RECORD
FROM THE VM/370 ERROR RECORDING CYLINDERS.
DMKIOG - CALLED VIA DIAGNOSE TO CLEAR REQUESTED
RECORDING CYLINDERS.
STATE/STATEW - CMS FUNCTIONS CALLED VIA SVC.
ERASE - CMS FUNCTIONS CALLED VIA SVC.
INCLUDE - CMS FUNCTIONS CALLED VIA SVC.
OTHERS - SEE 'MACROS' SECTION BELOW.