RND TITLE 'DMKRND (CP) VM/370 - RELEASE 6' 00001000
ISEQ 73,80 VALIDATE SERIALIZATION OF INPUT @V200899 00002000
*. 00003000
* SUBROUTINE NAME - 00004000
* 00005000
* DMKRND 00006000
* 00007000
* FUNCTION - 00008000
* 00009000
* DMKRND IS THE INTERFACE BETWEEN THE VM/370 DUMP SPOOL FILE 00010000
* AND THE OS-SSP DUMP FORMAT PROGRAM FOR PRINTING AND FORMAT- 00011000
* TING DUMPS OF THE 3704 AND 3705 COMMUNICATIONS CONTROLLERS 00012000
* 00013000
* ATTRIBUTES - 00014000
* 00015000
* NON-REUSEABLE, INVOKED VIA NCPDUMP COMMAND IN CMS 00016000
* 00017000
* COMMAND LINE FORMAT - 00018000
* 00019000
* +---------+------------------------------------------------------+ 00020000
* | | | 00021000
* | NCPDUMP | <DUMPNN> <(<ERASE> <NOFORM> <MNEMONIC> <NCPBUFF><)>> | 00022000
* | | | 00023000
* +---------+------------------------------------------------------+ 00024000
* 00025000
* ENTRY CONDITIONS - 00026000
* 00027000
* GR15 = ADDRESS OF DMKRND (NCPDUMP) 00028000
* GR14 = RETURN ADDRESS TO CMS MONITOR 00029000
* GR13 = ADDRESS OF 18-WORD SAVEAREA 00030000
* GR 1 = ADDRESS OF CMS PARAMETER BUFFER 00031000
* 00032000
* EXIT CONDITIONS - 00033000
* 00034000
* GR0-14 RESTORED 00035000
* GR15 = RETURN CODE (SEE MESSAGES) OR ZERO (SUCCESSFUL) 00036000
* 00037000
* CALLS TO OTHER ROUTINES - 00038000
* 00039000
* FSSTATE - TO DETERMINE THE EXISTENCE OF A CMS FILE 00040000
* FSERASE - TO ERASE A TEMPORARY OR WORK FILE 00041000
* FSWRITE - TO CREATE OR ADD TO A CMS DISK FILE 00042000
* FILEDEF - TO SPECIFY OS-SIMULATION DDNAMES FOR IFLDUMP 00043000
* LINEDIT - TO BUILD AND TYPE INFORMATION MESSAGES 00044000
* IFLDUMP - OS-SSP DUMP PROCESSOR FOR 3704/3705 CCU'S 00045000
* 00046000
* EXTERNAL REFERENCES - NONE 00047000
* 00048000
* TABLES / WORK AREAS - NONE 00049000
* 00050000
* NOTES - 00051000
* 00052000
* USE IS MADE OF THE DIAGNOSE CODE X'0034' TO READ 4096-BYTE 00053000
* SPOOL RECORDS FROM THE DUMP FILE CREATED BY VM/370 CP. 00054000
EJECT 00055000
* REGISTER USAGE - 00056000
* 00057000
* GR14-15 LINKAGE REGISTERS 00058000
* GR13 = SAVEAREA BASE ADDRESSABILITY 00059000
* GR12 = MODULE BASE ADDRESSABILITY 00060000
* GR11 = FSCB DSECT ADDRESSABILITY 00061000
* GR0-10 ARE WORK REGISTERS 00062000
* 00063000
* OPERATION - 00064000
* 00065000
* 1. IF NO DUMP FILE WAS SPECIFIED ('DUMPNN' OMITTED), THE 00066000
* DIAGNOSE X'0034' IS USED TO READ A DUMP SPOOL FILE ONTO 00067000
* THE CMS PRIMARY DISK. A CHECK IS MADE FOR EXISTING FILES 00068000
* WITH THE NAME 'DUMPNN NCPDUMP', WHERE 'NN' GOES FROM 00069000
* '00' TO '09'. THE NEW DUMP FILE IS GIVEN THE FIRST SUCH 00070000
* NAME WHICH DOES NOT ALREADY EXIST. AN INFORMATION MSG 00071000
* IS TYPED INFORMING THE USER OF WHICH FILE WAS CREATED. 00072000
* 00073000
* 2. FOR EACH 4096-BYTE SPOOL RECORD, EIGHT 512-BYTE RECORDS 00074000
* ARE WRITTEN INTO THE CMS DISK FILE. 00075000
* 00076000
* 3. AFTER THE CMS FILE HAS BEEN CREATED, THE CMS FILEDEF 00077000
* FUNCTION IS USED TO SETUP THE DDNAME SPECIFICATIONS 00078000
* EXPECTED BY IFLDUMP. THE CMS 'COMPSWT' IS USED TO FORCE 00079000
* A CMS 'LOADMOD' WHEN THE OS LINK MACRO IS USED TO 00080000
* EXECUTE THE IFLDUMP PROGRAM. ALL DUMP OUTPUT IS DIRECTED 00081000
* TO THE VIRTUAL SPOOL PRINTER. A SINGLE-ITEM TEMPORARY 00082000
* FILE IS CREATED TO PASS A CONTROL RECORD TO THE DUMP 00083000
* PROCESSOR, AND THIS FILE IS ERASED FOLLOWING THE DUMP. 00084000
* 00085000
* RESPONSES - 00086000
* 00087000
* 'DUMPNN NCPDUMP' FILE CREATED. 00088000
* 'DUMPNN NCPDUMP' FILE ERASED. 00089000
* 00090000
EJECT 00091000
* ERROR MESSAGES - 00092000
* 00093000
* DMKRND850I UNABLE TO READ DUMP FROM READER 00094000
* RETURN CODE = 21 00095000
* 00096000
* DMKRND851I TEN DUMP FILES ALREADY EXIST 00097000
* RETURN CODE = 22 00098000
* 00099000
* DMKRND852I FATAL I/O ERROR WRITING DUMP 00100000
* RETURN CODE = FROM FSWRITE MACRO 00101000
* 00102000
* DMKRND853I NO DUMP FILES EXIST 00103000
* RETURN CODE = 23 00104000
* 00105000
* DMKRND861I FILE 'DUMPNN NCPDUMP' NOT FOUND 00106000
* RETURN CODE = 28 00107000
* 00108000
* DMKRND863I INVALID PARAMETER - 'PARAMETER' 00109000
* RETURN CODE = 24 00110000
* 00111000
* DMKRND870I UNABLE TO CREATE CONTROL FILE FOR IFLDUMP 00112000
* RETURN CODE = 16 00113000
*. 00114000
EJECT 00115000
DMKRND START 0 @V200899 00116000
ENTRY NCPDUMP @V200820 00117000
REGEQU @V200899 00118000
NCPDUMP DS 0D 370X DUMP PROCESSOR INTERFACE @V200820 00119000
STM R14,R12,12(R13) SAVE INPUT REGISTERS @V200820 00120000
LR R12,R15 USE GR12 AS MODULE BASE @V200820 00121000
USING NCPDUMP,R12 @V200820 00122000
LA R14,SAVEAR POINT TO MY SAVE AREA @V200820 00123000
ST R13,4(0,R14) BACK POINTER @V200820 00124000
ST R14,8(0,R13) FWD POINTER @V200820 00125000
LR R13,R14 . . . @V200820 00126000
SPACE 2 00127000
*---------------------------------------------------------------------* 00128000
* DETERMINE DUMP FILENAME SPECIFIED (IF ANY) * 00129000
*---------------------------------------------------------------------* 00130000
USING DFSCB,R11 @V200820 00131000
LA R11,OUTFSCB POINT TO THE DUMP FILE FSCB @V200820 00132000
LA R4,8(0,R1) MOVE PNTR TO 2ND PLIST ENTRY @V200820 00133000
CLC DUMP(4),0(R4) IS THIS A 'DUMPNN' FILENAME ? @V200820 00134000
BNE TESTOPT BR IF NO - TEST OPTIONS @V200899 00135000
MVC FSCBFN(8),0(R4) MOVE DEFINED FILE NAME TO FSCB@V200820 00136000
LA R4,8(0,R4) MOVE PNTR PAST FILE NAME @V200820 00137000
TESTOPT DS 0H @V200899 00138000
CLI 0(R4),C'(' IS THIS THE START OF THE OPTIONS @V200899 00139000
BE OPTIONS BR IF YES @V200899 00140000
CLC FFS(8),0(R4) END OF OPTIONS ? @V200899 00141000
BE OPTEND BR IF YES @V200899 00142000
B OPTERROR INVALID PARAMETER - ERROR @V200820 00143000
SPACE 00144000
*---------------------------------------------------------------------* 00145000
* ANALYZE SPECIFIED INPUT PARAMETERS * 00146000
*---------------------------------------------------------------------* 00147000
OPTIONS DS 0H @V200899 00148000
LA R4,8(0,R4) MOVE PNTR TO NXT PARAMETER @V200899 00149000
CLC FFS(8),0(R4) END OF OPTIONS ? @V200899 00150000
BE OPTEND BR IF YES @V200899 00151000
CLI 0(R4),C')' IS THIS THE END OF OPTIONS @V200899 00152000
BE OPTEND BR IF YES @V200899 00153000
LA R3,OPTLIST LOAD ADDR OF OPTION LIST @V200899 00154000
LA R6,L'OPTLIST LENGTH OF OPTION LIST ENTRY @V200899 00155000
LA R7,OPTLEND ENDING ADDR OF OPTION LIST @V200899 00156000
OPTLOOP DS 0H @V200899 00157000
CLC 0(8,R3),0(R4) VALID OPTION FOUND @V200899 00158000
BE OPTFND BR IF YES @V200899 00159000
BXLE R3,R6,OPTLOOP LOOP UNTIL END OF LIST @V200899 00160000
B OPTERROR IF FALL-THRU INVALID PARM @V200899 00161000
OPTFND DS 0H @V200899 00162000
MVI 8(R3),X'01' SET OPTION 'ON' @V200899 00163000
B OPTIONS @V200899 00164000
EJECT 00165000
*---------------------------------------------------------------------* 00166000
* FIND THE FIRST 'DUMPNN NCPDUMP' FILEID AVAILABLE * 00167000
*---------------------------------------------------------------------* 00168000
OPTEND DS 0H @V200899 00169000
CLC DUMP(4),FSCBFN WAS FILE NAME DEFINED @V200899 00170000
BE STRTDUMP BR IF YES @V200899 00171000
MVC FSCBFN(8),DUMP LOOK FOR AVAILABLE FILE @V200899 00172000
SLR R3,R3 @VM08836 00173000
ICM R3,2+1,DUMP+4 CHARACTER '00' FOR DUMP FNAME @VM08836 00174000
LA R6,10(0) MAXIMUM NUMBER OF DUMP FILES @VM08836 00175000
LOOKLOOP DS 0H @V200899 00176000
FSSTATE FSCB=OUTFSCB,ERROR=READNXT JUMP WHEN FOUND @V200820 00177000
LA R3,1(0,R3) BUMP TO NXT NAME @V200820 00178000
STH R3,FSCBFN+4 STORE NXT SEQUENCE NAME @V200899 00179000
BCT R6,LOOKLOOP SEARCH FOR A FREE NAME @VM08836 00180000
SPACE 2 00181000
NODUMP DS 0H TEN DUMP FILES ALREADY EXIST @V200820 00182000
WRTERM 'DMKRND851I TEN DUMP FILES ALREADY EXIST', @V200820*00183000
COLOR=R TYPE ERROR MESSAGE IN RED @V200820 00184000
LA R15,22(0) ERROR RETURN CODE @V200820 00185000
ST R15,SVREG15 SET FOR EXIT @V200820 00186000
B RETURN @V200820 00187000
EJECT 00188000
*---------------------------------------------------------------------* 00189000
* READ DUMP SPOOL FILE DATA INTO CMS DISK FILE * 00190000
*---------------------------------------------------------------------* 00191000
READNXT DS 0H READ SPOOL FILE VIA DIAGNOSE @V200820 00192000
MSG 'SPOOL 00C CLASS E' NCPDUMP = CLASS E @V200820 00193000
DC X'83100008' SETUP READER CLASS FOR DUMP @V200820 00194000
LTR R0,R0 WAS SPOOL CMD SUCCESSFUL ? @VM08584 00195000
BNZ UNAREAD NO -- CANNOT READ THE DUMP @VM08584 00196000
L R6,INPUTAD ADDRESS OF 4096-BYTE BUFFER @V200820 00197000
LA R7,X'00C' STANDARD CARD-READER ADDRESS @V200820 00198000
DC X'83670034' READ SYSTEM DUMP SPOOL FILE @V200820 00199000
BC 1,UNAREAD CANNOT READ THE DUMP FILE @V200820 00200000
BC 2,NODFILE NO DUMP FILES EXIST @V200820 00201000
BC 4,EODFILE END OF FILE REACHED (?) @V200820 00202000
SPACE 2 00203000
LA R2,8(0,0) NUMBER OF 512'S IN 4096 @V200820 00204000
STH R2,FSCBNOR WRITE EIGHT RECORDS AT ONCE @V200820 00205000
MVC FSCBLRL(4),=A(4096) BUFFER SIZE = 4096 @V200820 00206000
B DUMPWRT WRITE THE FIRST 4K RECORD @VM08584 00207000
SPACE 00208000
SPOOLRD DS 0H READ FROM SPOOL, WRITE TO DISK @V200820 00209000
DC X'83670034' READ ANOTHER RECORD (GR6,7 OK) @V200820 00210000
BC 4+2,EODFILE END OF FILE REACHED @V200820 00211000
BC 1,UNAREAD I/O ERROR READING DUMP FILE @V200820 00212000
SPACE 00213000
DUMPWRT DS 0H WRITE EIGHT 512-BYTE RECORDS @VM08584 00214000
FSWRITE FSCB=OUTFSCB,BUFFER=(R6),ERROR=WRITERR @V200820 00215000
B SPOOLRD READ FROM CP ONCE MORE @V200820 00216000
EJECT 00217000
*---------------------------------------------------------------------* 00218000
* CLOSE CMS FILE AND SPOOL READER FILE * 00219000
*---------------------------------------------------------------------* 00220000
EODFILE DS 0H END OF DUMP FILE REACHED @V200820 00221000
FSCLOSE FSCB=OUTFSCB CLOSE THE DUMPNN FILE @V200820 00222000
LINEDIT TEXT='''.................'' FILE CREATED', @V200820*00223000
SUB=(CHAR8A,OUTFSCB+8) @V200820 00224000
SPACE 00225000
MSG 'CLOSE 00C' CLOSE THE READER FILE @V200820 00226000
DC X'83100008' . . . @V200820 00227000
* B STRTDUMP SETUP FOR IFLDUMP EXECUTION @V200820 00228000
EJECT 00229000
*---------------------------------------------------------------------* 00230000
* BUILD CONTROL FILE FOR IFLDUMP PROCESSING ROUTINE * 00231000
*---------------------------------------------------------------------* 00232000
STRTDUMP DS 0H @V200899 00233000
MVC NAMEFIL1(8),FSCBFN NAME FOR SYSUT2 FILEDEF@V200820 00234000
MVC NAMEFIL2(8),FSCBFN NAME FOR SYSIN FILEDEF @V200820 00235000
MVC SYSINAM(8),FSCBFN NAME IN CONTROL RECORD @V200820 00236000
LA R11,SYSFSCB POINT TO CONTROL-FILE FSCB @V200820 00237000
MVC FSCBFN(8),SYSINAM FILENAME FOR CONTROL FILE @V200820 00238000
FSSTATE FSCB=OUTFSCB,ERROR=FILENOT CHECK FOR DUMPN@V200820 00239000
SPACE 00240000
CLI NOFORM+8,X'00' HAS NOFORM BEEN SPECIFIED @V200899 00241000
BE *+8 NO -- LEAVE IT 'YES' @V200820 00242000
MVI FORMOPT,C'N' SET PARAMETER TO NOFORM @V200899 00243000
CLI MNEMONIC+8,X'00' MENMONICS REQUESTED ? @V200820 00244000
BE *+8 NO -- LEAVE IT AS IS @V200820 00245000
MVI MNEMOPT,C'Y' SET PARAMETER TO MNEMONICS @V200899 00246000
CLI NCPBUFF+8,X'00' FORMAT NCP BUFFER POOL? @V366838 00246250
BE *+8 NOPE -- LEAVE OPTION AS IS @V366838 00246500
MVI BUFFOPT,C'Y' YES -- SET UP THE ARG. @V366838 00246750
FSERASE FSCB=SYSFSCB ERASE ANY OLD SYSIN FILE @V200899 00247000
FSWRITE FSCB=SYSFSCB,ERROR=CTLFERR @V200899 00248000
* B LINKDMP GO SETUP FOR IFLDUMP @V200820 00249000
EJECT 00250000
*---------------------------------------------------------------------* 00251000
* ISSUE FILEDEF COMMANDS FOR IFLDUMP DDNAME DEFINITIONS * 00252000
*---------------------------------------------------------------------* 00253000
LINKDMP DS 0H @V200820 00254000
LA R1,FILEDEF1 ADDR OF 1-ST FILE DEF @V200899 00255000
SVC 202 DEFINE 'SYSUT2' DDNAME @V200820 00256000
DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00257000
SPACE 00258000
LA R1,FILEDEF2 ADDR OF 2-ND FILE DEF @V200899 00259000
SVC 202 DEFINE 'SYSIN' DDNAME @V200820 00260000
DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00261000
SPACE 00262000
LA R1,FILEDEF3 ADDR OF 3-RD FILE DEF @V200899 00263000
SVC 202 DEFINE 'SYSPRINT' DDNAME @V200820 00264000
DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00265000
SPACE 00266000
GETMAIN R,LV=X'5000' SIZE OF LONGEST IFLDUMP PATH @VA12806 00267100
LR R10,R1 SAVE ADDRESS FOR LATER RELEASE @V200820 00268000
SPACE 00269000
COMPSWT ON SET SWITCH TO LOADMOD IFLDUMP @V200820 00270000
SPACE 2 00271000
LA R1,DUMPARAS ADDR OF DUMMY PARAMETER LIST @V200899 00272000
LINK EP=IFLDUMP LINK TO OS IFLDUMP @V200820 00273000
ST R15,SVREG15 SAVE RETURN CODE @V200899 00274000
EJECT 00275000
FREEMAIN R,LV=X'5000',A=(R10) RELEASE GOTTEN STORAGE @VA12806 00276100
L R15,SVREG15 RESTORE RETURN CODE FROM IFLDUMP @V200820 00277000
LTR R15,R15 TEST RETURN CODE FOR 00 @V200899 00278000
BNZ RETURN @V200899 00279000
CLI ERASE+8,X'00' WAS ERASE REQUESTED @V200899 00280000
BE RETURN BR IF ERASE NOT REQUESTED @V200899 00281000
FSERASE FSCB=OUTFSCB ERASE THE DUMPNN FILE @V200820 00282000
LINEDIT TEXT='''.................'' FILE ERASED', @V200820*00283000
SUB=(CHAR8A,OUTFSCB+8) FILE ERASED MESSAGE @V200820 00284000
B RETURN @V200899 00285000
EJECT 00286000
*---------------------------------------------------------------------* 00287000
* ERROR MESSAGES AND ERROR HANDLING * 00288000
*---------------------------------------------------------------------* 00289000
PRINT NOGEN 00290000
OPTERROR DS 0H INVALID OPTION @V200820 00291000
LINEDIT TEXT='DMKRND863I INVALID PARAMETER - ''........''', *00292000
SUB=(CHAR8A,(R4)) TYPE ERROR MESSAGE @V200820 00293000
LA R15,24(0) RETURN CODE = 24 @V200820 00294000
ST R15,SVREG15 PASS ALONG FOR EXIT @V200820 00295000
B RETURN @V200820 00296000
SPACE 00297000
UNAREAD DS 0H UNABLE TO READ DUMP FILE @V200820 00298000
WRTERM 'DMKRND850I UNABLE TO READ DUMP FROM READER', @V200820*00299000
COLOR=R TYPE ERROR IN RED @V200820 00300000
FSCLOSE FSCB=OUTFSCB CLOSE FILE FOR PARTIAL DUMP @V200820 00301000
LA R15,21(0) ERROR RETURN CODE @V200820 00302000
ST R15,SVREG15 PASS ALONG FOR EXIT @V200820 00303000
B RETURN @V200820 00304000
SPACE 00305000
WRITERR DS 0H FATAL I/O ERROR WRITING DUMP @V200820 00306000
ST R15,SVREG15 PASS WRBUF ERROR RETURN CODE @V200820 00307000
WRTERM 'DMKRND852I FATAL I/O ERROR WRITING DUMP', @V200820*00308000
COLOR=R TYPE ERROR MESSAGE IN RED @V200820 00309000
FSCLOSE FSCB=OUTFSCB CLOSE FILE FOR PARTIAL DUMP @V200820 00310000
B RETURN RETURN CODE IS ALL SET @V200820 00311000
SPACE 00312000
FILENOT DS 0H DUMP FILE NOT FOUND @V200820 00313000
LINEDIT TEXT='DMKRND861I FILE ''.................'' NOT FOUND*00314000
',SUB=(CHAR8A,OUTFSCB+8) FILE NOT FOUND MSG @V200820 00315000
LA R15,28(0) ERROR RETURN CODE @V200820 00316000
ST R15,SVREG15 PASS IT ALONG FOR RETURN @V200820 00317000
B RETURN @V200820 00318000
SPACE 00319000
CTLFERR DS 0H UNABLE TO BUILD CONTROL FILE @V200820 00320000
WRTERM 'DMKRND870I UNABLE TO CREATE CONTROL FILE FOR IFLDUMP'*00321000
,COLOR=R ERROR MESSAGES ARE RED @V200820 00322000
LA R15,16(0) ERROR RETURN CODE @V200820 00323000
ST R15,SVREG15 PASS IT ALONG @V200820 00324000
B RETURN @V200820 00325000
SPACE 00326000
NODFILE DS 0H NO DUMP FILES IN THE READER @V200820 00327000
WRTERM 'DMKRND853I NO DUMP FILES EXIST',COLOR=R @V200820 00328000
LA R15,23(0) ERROR RETURN CODE @V200820 00329000
ST R15,SVREG15 PASS IT ALONG @V200820 00330000
B RETURN @V200820 00331000
SPACE 00332000
FILDERR DS 0H ERROR IN CALL TO FILEDEF @V200820 00333000
ST R15,SVREG15 PASS ALONG FILEDEF ERROR @V200820 00334000
PRINT GEN @V200820 00335000
EJECT 00336000
*---------------------------------------------------------------------* 00337000
* ERASE CONTROL FILE, RETURN TO CMS MONITOR * 00338000
*---------------------------------------------------------------------* 00339000
RETURN DS 0H @V200899 00340000
FSERASE FSCB=SYSFSCB ERASE DUMPNN SYSIN FILE @V200820 00341000
MSG 'CLOSE PRT' CLOSE THE SPOOL PRINTER @V200820 00342000
DC X'83100008' VIA CP CONSOLE FUNCTION @V200820 00343000
L R13,4(0,R13) BACK POINTER TO SAVEAREA @V200820 00344000
L R14,12(0,R13) RETURN ADDRESS @V200820 00345000
L R15,SVREG15 RETURN CODE TO GR15 @V200820 00346000
LM R0,R12,12(R13) RESTORE REGISTERS @V200820 00347000
BR R14 @V200899 00348000
EJECT 00349000
*---------------------------------------------------------------------* 00350000
* CONSTANTS, LITERALS, BUFFERS, AND CONTROL DATA AREAS * 00351000
*---------------------------------------------------------------------* 00352000
DUMP DC C'DUMP',C'00 ' DUMPNN FILENAME SKELETON @V200899 00353000
DS 0H 1 OF 2 @V200899 00354000
DMPNMEND DC C'09' HALF. BDRY END LOOKING FOR FILE @V200899 00355000
FFS DC X'FFFFFFFFFFFFFFFF' DBL-WD OF X'FF' @V200820 00356000
SPACE 3 00357000
*---------------------------------------------------------------------* 00358000
* PARAMETER LIST OPTION SEARCH TABLE * 00359000
*---------------------------------------------------------------------* 00360000
OPTLIST DS 0CL9 OPTION KEYWORD & SWITCH @V200899 00361000
ERASE DC C'ERASE ',X'00' @V200899 00362000
NOFORM DC C'NOFORM ',X'00' @V200899 00363000
MNEMONIC DC C'MNEMONIC',X'00' @V200899 00364000
NCPBUFF DC C'NCPBUFF ',X'00' @V366838 00364500
OPTLEND EQU * END OF PARM'S @V200899 00365000
SPACE 2 00366000
*---------------------------------------------------------------------* 00367000
* IFLDUMP DUMMY PARAMETER LIST * 00368000
*---------------------------------------------------------------------* 00369000
DUMPARAS DS 0F @V200899 00370000
DC X'80000000' NO PARAMETERS PASSED @V200820 00371000
EJECT 00372000
*---------------------------------------------------------------------* 00373000
* CMS COMMANDS * 00374000
*---------------------------------------------------------------------* 00375000
FILEDEF1 DS 0D FILEDEF FOR SYSUT2 @V200820 00376000
DC CL8'FILEDEF ' @V200899 00377000
DC CL8'SYSUT2 ' @V200899 00378000
DC CL8'DISK ' @V200899 00379000
NAMEFIL1 DC CL8' ' @V200899 00380000
DC CL8'NCPDUMP ' @V200899 00381000
DC CL8'A1 ' @V200899 00382000
DC CL8'(',CL8'RECFM',CL8'F' @V200820 00383000
DC CL8'BLOCK',CL8'512' @V200820 00384000
DC CL8'XTENT',CL8'513' @V200820 00385000
DC X'FFFFFFFFFFFFFFFF' @V200899 00387000
SPACE 2 00388000
FILEDEF2 DS 0D FILEDEF FOR SYSIN @V200899 00389000
DC CL8'FILEDEF ' @V200899 00390000
DC CL8'SYSIN ' @V200899 00391000
DC CL8'DISK ' @V200899 00392000
NAMEFIL2 DC CL8' ' @V200899 00393000
DC CL8'SYSIN ',CL8'A1 ' @V200899 00394000
DC X'FFFFFFFFFFFFFFFF' @V200899 00395000
SPACE 2 00396000
FILEDEF3 DS 0D FILEDEF FOR SYSPRINT @V200899 00397000
DC CL8'FILEDEF ' @V200899 00398000
DC CL8'SYSPRINT' @V200820 00399000
DC CL8'PRINTER' @V200820 00400000
DC X'FFFFFFFFFFFFFFFF' @V200899 00401000
SPACE 2 00402000
*---------------------------------------------------------------------* 00403000
* CONTROL CARD SKELETON FOR IFLDUMP PROCESSOR * 00404000
*---------------------------------------------------------------------* 00405000
SYSINREC DS 0CL80 @V200899 00406000
SYSINAM DC CL8' ' @V200899 00407000
DC C' DUMP' @V200899 00408000
DC C' FORMAT=' @V200899 00409000
FORMOPT DC C'Y' @V200899 00410000
DC C',MNEMONIC=' @V200899 00411000
MNEMOPT DC C'N' @V200899 00412000
DC C',BUF=' @V366838 00413250
BUFFOPT DC C'N' @V366838 00413500
DC 41C' ' @V366838 00413750
EJECT 00414000
*---------------------------------------------------------------------* 00415000
* FILE SYSTEM CONTROL BLOCKS * 00416000
*---------------------------------------------------------------------* 00417000
OUTFSCB FSCB 'X NCPDUMP A1',BUFFER=INPUT,BSIZE=512 @V200820 00418000
SPACE 2 00419000
SYSFSCB FSCB 'DUMPNN SYSIN A1',BUFFER=SYSINREC,BSIZE=80 @V200820 00420000
SPACE 2 00421000
SVREG15 DC F'0' RETURN CODE HOLD FIELD @V200820 00422000
SAVEAR DS 18F STANDARD OS-FORMAT SAVEAREA @V200820 00423000
SPACE 00424000
LTORG @V200899 00425000
EJECT 00426000
*---------------------------------------------------------------------* 00427000
* SPOOL INPUT BUFFER AND DISK OUTPUT BUFFER * 00428000
*---------------------------------------------------------------------* 00429000
INPUTAD DC A(INPUT) ADDR OF INPUT/OUTPUT AREA @V200899 00430000
ORG DMKRND+4096 START BUFFER ON PAGE BOUNDARY @V200899 00431000
INPUT DS CL4096' ' OUTPUT & INPUT THE SAME FIELD @V200899 00432000
SPACE 3 00433000
*---------------------------------------------------------------------* 00434000
* FILE SYSTEM CONTROL BLOCK DEFINITION * 00435000
*---------------------------------------------------------------------* 00436000
SPACE 00437000
DFSCB DSECT , FILE SYSTEM CONTROL BLOCK @V200820 00438000
FSCBCMD DS CL8 COMMAND NAME (FUNCTION) @V200820 00439000
FSCBFN DS CL8 FILENAME @V200820 00440000
FSCBFT DS CL8 FILETYPE @V200820 00441000
FSCBFM DS CL2 FILEMODE @V200820 00442000
FSCBITM DS 1H RELATIVE ITEM NUMBER @V200820 00443000
FSCBBUF DS 1F BUFFER ADDRESS @V200820 00444000
FSCBLRL DS 1F BUFFER SIZE IN BYTES @V200820 00445000
FSCBFMT DS CL2 RECORD FORMAT (F/V) @V200820 00446000
FSCBNOR DS 1H NUMBER OF ITEMS @V200820 00447000
FSCBINC DS 1F NUMBER OF BYTES ACTUALLY READ @V200820 00448000
DS 1F @V200820 00449000
SPACE 2 @V200820 00450000
END DMKRND @V200820 00451000