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