IDENT CMDUMP
ENTRY CMDUMP
ENTRY KPOINT
TITLE CMDUMP - DUMP CENTRAL MEMORY / DATA BUFFERS.
*COMMENT CMDUMP - DUMP CENTRAL MEMORY.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
CMDUMP SPACE 4,10
***** CMDUMP - DUMP CENTRAL MEMORY / DATA BUFFERS.
* A. J. KOMOR 72/07/24.
* J. R. HOGUE 72/10/05.
* B. C. ANTIN 78/03/08.
SPACE 4
*CALL COMKMAC
*CALL COMSPRD
CMDUMP SPACE 4,90
*** CMDUMP - PRODUCT SET INTERFACE TO DUMP A TASKS CENTRAL
* MEMORY, EXCHANGE PACKAGE, AND/OR DATA MANAGER
* BUFFERS.
*
* *CMDUMP* WILL FORMAT A REQUEST TO THE TRANSACTION FACILITY
* TO DUMP THE DESIRED TASK RELATED FIELD LENGTH, EXCHANGE
* PACKAGE, AND/OR DATA MANAGER BUFFERS. IF A GIVEN
* PARAMETER IS NEGATIVE, THE DEFAULT VALUE WILL BE
* OBTAINED FROM THE PREVIOUS *DSDUMP* REQUEST
* (IF ONE WAS GIVEN) OTHERWISE THE DEFAULT
* VALUE WILL BE OBTAINED FROM THE GENERAL TRANSACTION
* FACILITY DEFAULT VALUES ESTABLISHED AT INITIALIZATION OR
* CHANGED BY K-DISPLAY COMMANDS.
*
* CALL FORMAT -
*
* COBOL -
*
* ENTER CMDUMP USING FWA,LWA,EP,DB,OQ,QD,FILE1, ... FILEN.
*
*
* FORTRAN EXTENDED -
*
* CALL CMDUMP(FWA,LWA,EP,DB,OQ,QD,FILE1,...FILEN)
*
*
* PARAMETER DEFINITIONS -
*
* FOR ALL PARAMETERS EXCEPT *QD* USE COMP-1 FOR COBOL AND
* INTEGER FOR FORTRAN.
*
* FWA BEGINNING ADDRESS, LEGAL VALUES:
* FWA .LT. FL
* IF NEGATIVE (BIT 17 SET) USE DEFAULT
*
* LWA LAST WORD ADDRESS, LEGAL VALUES:
* FWA .LT. LWA
* =0, IMPLIES NO DUMP OF FIELD LENGTH
* IF NEGATIVE (BIT 17 SET) USE DEFAULT
*
* EP EXCHANGE PACKAGE, LEGAL VALUES:
* =0, OPTION NOT DESIRED
* "0, SELECT OPTION
* IF NEGATIVE (BIT 59 SET) USE DEFAULT
*
* DB DATA BUFFERS DUMP, LEGAL VALUES:
* =0, OPTION NOT DESIRED
* "0, SELECT OPTION
* IF NEGATIVE (BIT 59 SET) USE DEFAULT
*
* OQ OUTPUT QUEUE, LEGAL VALUES:
* =0, DUMP TO BATCH PRINTER
* =1, DUMP TO E/I 200
* =2, DUMP TO USER PERMANENT FILE
* IF NEGATIVE (BIT 59 SET) USE DEFAULT
*
* QD QUEUE DESTINATION, LEGAL VALUES:
* IF PRINTER IS SPECIFIED IN PREVIOUS PARAMETER,
* PRINTER I.D. IS SPECIFIED IN NUMERIC CHARACTERS
* RIGHT JUSTIFIED BINARY ZERO FILLED WITHIN A 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, BINARY ZERO FILLED.
* 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, BINARY ZERO FILLED.
* ANY LEGAL FILE NAME IS PERMISSIBLE
* WITH A MAXIMUM OF SEVEN CHARACTERS.
* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
*
* FILEN FILE NAMES OF DATA MANAGER BUFFERS TO BE DUMPED, LEGAL
* VALUES:
* 4 DISPLAY CHARACTERS LEFT JUSTIFIED.
* IF NONE ARE GIVEN, ALL FILE BUFFERS WILL BE DUMPED.
* A MAXIMUM OF 10 FILES IS ALLOWED. IF MORE ARE
* SPECIFIED THEY ARE IGNORED.
VFD 42/0LCMDUMP,18/CMDUMP
CMDUMP SUBR ENTRY/EXIT
SB1 1
SA4 X1 PICK UP FWA
MX5 60-18
SA3 A1+B1 SECOND PARAMETER POINTER
BX6 -X5*X4
SA2 X3+ PICK UP LWA
BX2 -X5*X2
SA1 A3+1 THIRD PARAMETER POINTER
LX2 30
BX4 X2+X6 LWA+FWA
SA2 X1 READ EXCHANGE PACKAGE INDICATOR
SA3 A1+B1 FOURTH PARAMETER
SX6 X2
SA1 X3 DATA BASE BUFFER DUMP
MX7 0
ZR X6,CMD1 IF EXCHANGE PACKAGE DUMP NOT DESIRED
MX7 1
PL X2,CMD1 IF NOT DEFAULT
LX7 -2
CMD1 SX2 0
SA3 A3+B1 FIFTH PARAMETER POINTER - OUTPUT QUEUE
BX6 X4+X7 LWA+FWA+EP
SX4 X1
ZR X4,CMD2 IF DATA BASE BUFFERS NOT DESIRED
SX2 B1
LX2 58
PL X1,CMD2 IF NOT DEFAULT
LX2 -2
CMD2 BX6 X6+X2 LWA+FWA+EP+DB
SA6 CMDA SET UP CALL WORD 1
SA2 X3 OUTPUT QUEUE
SA4 A3+B1 SIXTH PARAMETER POINTER-QUEUE DESTINATION
SB3 X2
BX2 -X5*X2
SA3 X4 QUEUE DESTINATION
NZ B3,CMD3 IF NOT LOCAL PRINTER QUEUE
MX5 18
LX3 -18
CMD3 BX7 X5*X3 EXTRACT QUEUE DESTINATION
SB2 B1
BX7 X7+X2 DESTINATION + QUEUE
MX5 24
SB3 MAXFN MAXIMUM NUMBER OF FILE NAMES
SA7 A6+1
CMD4 SA4 A4+B1 SEVENTH PARAMETER THRU END - FILE NAMES
ZR X4,CMD5 IF END OF LIST
SA3 X4 PICK UP DB,FN1,...
BX6 X5*X3 MASK OFF FILE NAMES
SA6 CMDB+B2
SB2 B2+B1
NE B2,B3,CMD4 IF NOT END OF FILE NAME LIST
CMD5 SA2 CMDUMP PICK UP ADDRESS OF CALLER
MX5 18
LX5 -12
SX3 B2-1 COUNT OF THE NUMBER OF FILE NAMES
BX7 X5*X2
IX7 X3+X7
SA7 CMDB SAVE COUNT
CMDUMP CMDA ISSUE REQUEST
EQ CMDUMPX RETURN
MAXFN EQU 10 MAXIMUM NUMBER OF FILE NAMES
CMDA VFD 1/1,1/1,1/0,1/0,8/0,18/3LLWA,12/0,18/3LFWA
VFD 42/4LQDES,18/2LOQ
CMDB VFD 12/0,18/3LADR,26/0,4/1RC CALL ORIGIN AND FILE COUNT
BSSZ MAXFN
KPOINT SPACE 4,25
*** KPOINT - PRODUCT SET INTERFACE TO ISSUE THE DESIGNATED
* TRANSACTION FACILITY K-DISPLAY COMMANDS.
*
* CALL FORMAT -
*
* COBOL -
*
* ENTER KPOINT USING BUF
*
* FORTRAN EXTENDED -
*
* CALL KPOINT(BUF)
*
* PARAMETER DEFINITION -
*
* BUF - THE ADDRESS OF A CHARACTER STRING CONTAINING THE
* COMMAND TO BE ISSUED. THE CHARACTER STRING IS
* TERMINATED WITH A *.* OR *)* EXCEPT FOR THE
* *MESSAGE* COMMAND WHERE THE MESSAGE TO BE SENT
* FOLLOWS THE *.* OR *)* AND TERMINATES ON 6
* BITS OF BINARY ZEROS. THE STRING IS LIMITED
* TO 8 CM WORDS.
VFD 42/0LKPOINT,18/KPOINT
KPOINT SUBR ENTRY/EXIT
SX1 X1
KPOINT X1 ISSUE REQUEST
EQ KPOINTX RETURN
END