IDENT DSDUMP
ENTRY DSDUMP
SYSCOM B1
TITLE DSDUMP - DIRECT SUBSEQUENT DUMPS.
*COMMENT DSDUMP - DIRECT SUBSEQUENT DUMPS.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
SPACE 4
***** DSDUMP - DIRECT SUBSEQUENT DUMPS.
*
* A. J. KOMOR. 72/07/24.
* J. R. HOGUE. 72/10/05.
* W. E. MARTIN. 78/12/30.
SPACE 4
* COMMON TEXTS.
*CALL COMCMAC
*CALL COMKMAC
*CALL COMSPRD
SPACE 4,75
*** DSDUMP - DIRECT SUBSEQUENT DUMPS.
*
* DSDUMP IS A PRODUCT SET INTERFACE WHICH ALLOWS THE APPLI-
* CATION PROGRAMMER TO CHANGE ANY OF THE DEFAULT VALUES OF A
* CMDUMP REQUEST. THE DSDUMP DOES NOT CAUSE A DUMP IN ITSELF,
* EXCEPT, WHEN THE SYSTEM DETECTS AN ERROR (I.E. ABORT). ANY
* DEFAULT VALUES ON THE DSDUMP ARE SATISFIED FROM THE GENERAL
* DEFAULT VALUES WHICH ARE ASSEMBLED IN THE EXECUTIVE.
*
* CALLING FORMATS -
*
* COBOL -
*
* ENTER DSDUMP USING FWA, LWA, EP, DB, OQ, QD.
*
* FORTRAN EXTENDED -
*
* CALL DSDUMP(FWA,LWA,EP,DB,OQ,QD)
*
* FWA BEGINNING ADDRESS, LEGAL VALUES - FWA .LT. FL.
* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
* COBOL COMP-1.
* FORTRAN EXTENDED INTEGER.
*
* LWA LAST WORD ADDRESS, LEGAL VALUES - FWA .LT. FL.
* .EQ. 0 - IMPLIES NO DUMP OF FIELD LENGTH.
* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
* COBOL COMP-1.
* FORTRAN EXTENDED INTEGER.
*
* EP EXCHANGE PACKAGE, LEGAL VALUES -
* .EQ. 0 - OPTION NOT DESIRED.
* .NE. 0 - OPTION SELECTED.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
* COBOL COMP-1.
* FORTRAN EXTENDED INTEGER.
*
* DB DATA BUFFERS DUMP, LEGAL VALUES -
* .EQ. 0 - OPTION NOT DESIRED.
* .NE. 0 - OPTIONSELECTED.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
* COBOL COMP-1.
* FORTRAN EXTENDED INTEGER.
*
* OQ OUTPUT QUEUE, LEGAL VALUES -
* .EQ. O - DUMP TO BATCH PRINTER.
* .EQ. 1 - DUMP TO E/I 200.
* .EQ 2 - DUMP TO USER PERMANENT FILE.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
* COBOL COMP-1.
* FORTRAN EXTENDED INTEGER.
*
* QD QUEUE DESTINATION, LEGAL VALUES -
* IF PRINTER IS SPECIFIED IN PREVIOUS PARAMETER,
* PRINTER I.D. IS SPECIFIED IN NUMERIC CHARACTERS
* RIGHT JUSTIFIED WITHIN WORD.
* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
*
* IF E/I 200 IS SPECIFIED IN PREVIOUS PARAMETER, THE
* ACCOUNT NUMBER IS SPECIFIED IN DISPLAY CODED LEFT
* JUSTIFIED CHARACTERS. MAXIMUM LENGTH IS SEVEN
* CHARACTERS.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
*
* IF USER PERMANENT FILE IS SPECIFIED, THE PERMANENT
* FILE NAME IS SPECIFIED IN DISPLAY CODED LEFT
* JUSTIFIED CHARACTERS. ANY LEGAL FILE NAME IS
* PERMISSIBLE WITH A MAXIMUM OF SEVEN CHARACTERS.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
*
*
* USES A - 1, 2, 3, 4, 6, 7.
* X - ALL.
* B - 1, 3.
*
* CALLS ZFN.
*
* MACROS DSDUMP.
VFD 42/0LDSDUMP,18/DSDUMP
DSD5 SA1 DSDB RESTORE (A0)
SA0 X1+
DSDUMP SUBR ENTRY/RETURN
SX6 A0 SAVE (A0)
MX5 60-18
SA6 DSDB
SB1 1
SA4 X1 READ FWA PARAMETER ADDRESS
SA3 A1+B1 READ LWA PARAMETER ADDRESS
BX6 -X5*X4
SA2 X3 READ LWA
BX2 -X5*X2
LX2 30
BX6 X2+X6 (X6) = LWA AND FWA
SA1 A3+B1 READ EXCHANGE POINT PARAMETER
SA3 A1+B1 READ DATA BASE PARAMETER ADDRESS
SA2 X1 READ EXCHANGE PACKAGE DUMP FLAG
SA1 X3 READ DATA BASE DUMP FLAG
BX3 X3-X3
SA4 A3+B1 READ OUTPUT QUEUE PARAMETER ADDRESS
SX7 X1
ZR X7,DSD1 IF DATA BUFFER DUMP NOT DESIRED
SX3 B1
LX3 58
PL X1,DSD1 IF NOT DEFAULT PARAMETER
LX3 -2
DSD1 SX7 X2
BX1 X1-X1
ZR X7,DSD2 IF EXCHANGE PACKAGE DUMP NOT DESIRED
MX1 1
PL X2,DSD2 IF NOT DEFAULT PARAMETER
LX1 -2
DSD2 BX6 X6+X3 (X6) = LWA + FWA + DB
SA3 A4+B1 READ SIXTH PARAMETER POINTER
BX6 X6+X1 (X6) = LWA + FWA + DB + EP
SA2 X4 READ OUTPUT QUEUE
SA6 DSDA
BX0 -X5*X2
SA1 X3 READ QUEUE DESTINATION
SB3 X0+
ZR B3,DSD3 IF DUMP IS TO LOCAL PRINTER
RJ ZFN ZERO FILL NAME
EQ DSD4 PROCESS QUEUE DESTINATION PARAMETER
DSD3 BX5 -X5
DSD4 BX7 X5*X1 EXTRACT QUEUE DESTINATION
BX7 X7+X0 (X7) = DESTINATION + QUEUE
SA7 A6+1
DSDUMP DSDA ISSUE REQUEST TO EXECUTIVE
EQ DSD5 RESTORE (A0) AND RETURN
DSDA VFD 1/1,1/1,1/0,1/0,8/,18/3LLWA,12/0,18/3LFWA
VFD 42/2LQD,18/2LOT
DSDB CON 0 STORAGE FOR (A0)
SPACE 4
* COMMON DECK.
*CALL COMKZFN
SPACE 4
END