*DECK DLFP
PRGM DLFP; # POST PROCESSOR FOR ZZZZZDN FILE FROM NAM#
*IF DEF,IMS
#
* DDDDDDDD LL FFFFFFFFFF PPPPPPPP
* DDDDDDDDD LL FFFFFFFFFF PPPPPPPPP
* DD DD LL FF PP PP
* DD DD LL FF PP PP
* DD DD LL FFFFFFFF PPPPPPPPP
* DD DD LL FFFFFFFF PPPPPPPP
* DD DD LL FF PP
* DD DD LL FF PP
* DDDDDDDDD LLLLLLLLLL FF PP
* DDDDDDDD LLLLLLLLLL FF PP
*
*
* DLFP IS A NETWORK PRODUCTS UTILITY PROGRAM. IT IS USED TO LIST
* THE CONTENT OF THE LOG FILE FROM NIP (ZZZZZDN) AND THE DEBUG TRACE
* FILE FROM AIP, ALSO NAMED ZZZZZDN. IT IS POSSIBLE TO REQUEST DLFP
* TO ANALYSE THE LOG FILE BY SPECIFYING THAT ONLY A CERTAIN SET OF
* MESSAGES BE SELECTED FOR OUTPUT. THAT IS DONE BY DIRECTIVES IN THE
* DIRECTIVE FILE INPUT BY NIP. ERROR MESSAGES ARE OUTPUT TO LOCAL
* DAYFILE OR OUTPUT FILE IF ERROR CONDITIONS ARE ENCOUNTERED. THE
* ERROR CONDITION CAN BE A BAD PROGRAM CALL CARD OR, A BAD DIRECTIVE,
* OR CAN BE A BAD LOG FILE.
*
* FORMAT OF THE PROGRAM CALL CARD IS
*
* DLFP [,P1] [,P2] [,P3] [,P4] [,P5] .
*
* P1, P2, P3, P4, P5 CAN BE ONE OF THE FOLLOWING:
*
* 1. I = 0 NO INPUT DIRECTIVE FILE
* I = FILEN FILEN IS THE NAME OF THE INPUT DIRECTIVE
* FILE.
* OMITTED INPUT IS THE NAME OF THE INPUT
*
* 2. B = FILEN FILEN IS THE NAME OF THE LOG FILE.
* OMITTED ZZZZZDN IS THE NAME OF THE LOG FILE
*
* 3. L = FILEN FILEN IS THE NAME OF THE OUTPUT FILE NAME
* OMITTED OUTPUT IS THE NAME OF THE OUTPUT FILE.
*
* 4. N = FILEN NEW DEBUG LOG FILE GENERATED WITH
* FILE NAME = FILEN ACCORDING TO THE
* SELECTION DIRECTIVES. NORMAL OUTPUT
* WILL NOT BE PRODUCED.
* OMITTED NORMAL OUTPUT PRODUCED.
*
* 5. D IGNORED ERRORS
* OMITTED DO NOT IGNORE ERRORS
*
* DLFP READS THE INPUT DIRECTIVE FILE IF AVAILABLE FOR DIRECTIONS.
* FOR A NIP LOG FILE, ONLY ON DIRECTIVE (CN) IS VALID, WHILE ALL
* DIRECTIVES LISTED BELOW ARE AVAILABLE FOR AN AIP LOG FILE.
*
* DIRECTION VALUE
* KEYWORD POSSIBLE ACTION
*
* B SPECIFIES A SEARCH FOR MESSAGES WITH
* THE USER BREAK FLAG SET IN THE APPLI-
* ATION BLOCK HEADER.
*
* BD= YYMMDD SPECIFIED A SEARCH FOR MESSAGES WHICH
* WERE LOGGED ON OR AFTER THIS DATE.
* MESSAGES BEFORE THIS DATE ARE NOT OUT-
* PUT. YY IS THE RIGHTMOST 2 DIGITS OF
* THE YEAR, MM IS THE MONTH, AND DD IS
* THE DAY OF THE MONTH TO BEGIN
* SEARCHING.
*
* BT= HHMMSS SPECIFIES A SEARCH FOR MESSAGES WHICH
* WERE LOGGED ON OR AFTER THIS TIME.
* MESSAGES BEFORE THIS TIME ARE NOT
* OUTPUT. NOTE THAT IF THE DEBUG LOG
* FILE CONTAINS MORE THAN ONE DAY'S
* MESSAGES, SEARCHING WILL BEGIN AFTER
* THE FIRST OCCURRENCE OF THIS TIME IF
* BD IS NOT SPECIFIED. HH IS THE HOUR,
* MM IS THE MINUTE, AND SS IS THE
* SECOND TO BEGIN SEARCHING.
*
* CN= N SPECIFIES A SEARCH FOR MESSAGES ON THE
* CONNECTION NUMBER N. ALL SYNCHRONOUS
* AND ASYNCHRONOUS SUPERVISORY MESSAGES
* AND DATA BLOCKS ON CONNECTION NUMBER
* N ARE OUTPUT.
*
* E SPECIFIES SCAN FOR ERROR BIT SET IN
* THE SUPERVISORY MESSAGE.
*
* ED= YYMMDD SPECIFIES THAT MESSAGES ON OR AFTER
* THIS DATE ARE NOT TO BE OUTPUT. YY IS
* THE RIGHTMOST 2 DIGITS OF THE YEAR,
* MM IS THE MONTH, AND DD IS THE DAY OF
* THE MONTH TO END SEARCHING.
*
* ET= HHMMSS SPECIFIES THAT MESSAGES ON OR AFTER
* THIS TIME ARE NOT TO BE OUTPUT. NOTE
* THAT IF THE DEBUG LOG FILE CONTAINS
* MORE THAN ONE DAY'S MESSAGES, SEARCHING
* WILL TERMINATE AFTER THE FIRST
* OCCURRENCE OF THIS TIME ED IS NOT
* SPECIFIED. HH IS THE HOUR, MM IS
* THE MINUTE, AND SS IS THE SECOND TO
* END SEARCHING.
*
* LE= N SPECIFIES MAX LENGTH OF EACH MESSAGE
* TO BE OUTPUT IN THE CM WORDS. 1 @ N @
* 410 (DEFAULT=10)
*
* F SPECIFIES SCAN FOR A MESSAGE(S) WITH
* THE NO FORMAT EFFECTOR BIT SET IN
* APPLICATION BLOCK HEADER.
*
* N WHEN SPECIFIED, ALL NETLOG ENTRIES
* IN THE DEBUG LOG FILE ARE IGNORED
* ON THE OUTPUT.
*
* NM= N SPECIFIED THAT ONLY N MESSAGES WILL
* BE OUTPUT.
*
* P SPECIFIES SCAN FOR MESSAGE(S) WITH THE
* PARITY ERROR FLAG BIT SET APPLICATION
* BLOCK HEADER.
*
* PF= SYMBOL SPECIFIES A SEARCH FOR SUPERVISORY
* MESSAGES WITH PFC EQUAL TO SYMBOL.
* SYMBOL MUST BE A VALID PFC (DEFINED
* IN APPENDIX F OF NAM RM).
*
* PS= SYMBOL SPECIFES A SEARCH FOR A MESSAGE WITH
* PFC/SFC EQUAL TO SYMBOL. SYMBOL MUST
* BE A VALID SFC (DEFINED IN
* APPENDIX F OF NAM REFERENCE MANUAL)
*
* R SPECIFIES A SEARCH FOR MESSAGES WITH
* THE RESPONSE BIT SET IN A SUPERVISORY
* MESSAGE.
*
* SM= N SPECIFIES THAT NO MESSAGES WILL BE
* OUTPUT UNTIL AFTER THE NTH MESSAGE,
* WHICH SATISFIES ALL THE OTHER KEYWORD
* OPTIONS, HAD BEEN FOUND.
*
* T SPECIFIES A SEARCH FOR MESSAGES WITH
* THE TRUNCATED DATA BIT SET IN THE
* APPLICATION BLOCK HEADER.
*
* U SPECIFIES SCAN FOR MESSAGE(S) WITH
* THE INPUT BLOCK UNDELIVERABLE (IBU)
* BIT SET IN THE APPLICATION BLOCK
* HEADER.
*
* X SPECIFIES A SEARCH FOR MESSAGE(S) WITH
* THE TRANSPARENT BIT SET IN APPLICATION
* BLOCK HEADER.
*
* THE SAME KEYWORD CAN APPEAR MORE THAN ONCE IN A DIRECTIVE RECORD.
* IF THERE IS A VALUE ASSOCIATED WITH THIS KEYWORD, THE VALUE IN THE
* LAST OCCURRENCE OF THE KEYWORD WILL BE THE ONE USED FOR THE
* SEARCH.
*
#
*ENDIF
CONTROL PRESET;
# * * * * * * * * * * * * * * * --- CRCOM --- * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC CRCOM
* COPYRIGHT INFORMATION
#
*ENDIF
*CALL CRCOM
#* * * * * * * * * * * * * * * --- CYBERDEFS --- * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC CYBERDEFS
* COMMON DEFS TO DEFNE CYBER MACHINES CHARACTERISTICS.
#
*ENDIF
*CALL CYBERDEFS
# * * * * * * * * * * * * * * * --- ARGERR --- * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC ARGERR
* COMMON DECK CONTAINING ALL ERROR MESSAGES ISSUED BY
* DLARG.
#
*ENDIF
*CALL ARGERR
# * * * * * * * * * * * * * --- ARGTBL --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC ARGTBL
* COMMON BLOCK TO PASS INPUTS FROM PROGRAM CALL CARD
* TO VARIOUS MODULES IN DLFP.
#
*ENDIF
*CALL ARGTBL
# * * * * * * * * * * * * --- AWLDEFS --- * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC AWLDEFS
* MISCELLANEOUS DEFINITIONS USED BY DLFP.
#
*ENDIF
*CALL AWLDEFS
# * * * * * * * * * * * * --- DEQCOM --- * * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC DEQCOM
* COMMON DECK CONTAINING DEFINITIONS USED BY DLFP.
#
*ENDIF
*CALL DEQCOM
# * * * * * * * * * * * * --- DIERR --- * * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DIERR
* COMMON DECK CONTAINING ERROR CODES AND ERROR MESSAGES
* USED BY DLDIRP.
#
*ENDIF
*CALL DIERR
# * * * * * * * * * * * * --- DIRTBL --- * * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC DIRTBL
* COMMON BLOCK SAVING SELECTED VALUES FOR DIRECTIVE
*
* THE TABLE DIRTBL RECEIVES THE VALUES OF THE INPUT DIRECTIVES.
* IF A DIRECTIVE HAS NOT BEEN SELECTED, THEN A ZERO VALUE
* IS PLACED IN THE TABLE SELECTED DIRECTIVES HAVE THE FOLLOWING
* FORMAT:
* 4
* 0 2
* I--------------------------I-----------------I
* I I I
* I DIRVALU I DIRID I
* I I I
* I--------------------------I-----------------I
*
* DIRVALU - VALUE OF THE DIRECTIVE
* DIRID - IDENTIFICATION CODE FOR THE SELECTED DIRECTIVES
*
* THE IDENTIFICATION CODES HAVE BEEN GROUPED FOR EFFICIENCY
* ACCORDING TO THE TYPE OF INFORMATION TO BE READ FROM THE
* ZZZZZDN FILE. THE PROCEDURE DLREP COPIES NON-ZERO VALUES
* INTO THREE CONDENSED TABLES SO THAT ALL DIRECTIVES WILL
* NOT HAVE TO BE EXAMINED FOR EVERY MESSAGE.
* NOTE THAT SINCE DLREP COPIES A RANGE OF VALUES TO EACH
* TABLE, THE DIRECTIVE GROUPINGS MUST REMAIN INTACT. THE
* CN DIRECTIVE IS USED IN TWO TABLES. A CHANGE IN THE ID$
* VALUE MUST ALSO CHANGE THE CORRESPONDING SWITCH DEFINITIONS
* IN PROCEDURES DLABH,DLMSG,DLNBH,DLSM.
*
#
*ENDIF
*CALL DIRDEFS
*CALL DIRTBL
# * * * * * * * * * * * * --- DIRTBLH --- * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DIRTBLH
* SUBSET OF DIRECTIVE VALUE TABLE FOR HEADER PROCESSING
*
* DIRTBLH IS A SUBSET OF DIRTBL CREATED BY THE PROCEDURE
* DLREP FOR USE BY DLABH FOR AN APPLICATION ZZZZZDN FILE
* OF FOR USE BY DLNBH FOR A NIP ZZZZZDN FILE. DLABH AND
* DLNBH ARE NOT CALLED IF THERE ARE NO DIRECTIVES IN
* DIRTBLH (DIRNUMH EQ 0). ONLY APPLICATION BLOCK HEADERS
* MAY BE EXAMINED FOR CONNECTION NUMBER (CN) AND/OR THE
* DATA BLOCK CLARIFIER BITS BREAK FLAG(B), CANCEL FLAG(C),
* NO FORMAT EFFECTOR FLAG(F), PARITY ERROR FLAG(P),
* TRUNCATED DATA FLAG(T), UNDELIVERABLE INPUT BLOCK(U),
* OR TRANSPARENT BIT(X). THE NETWORK BLOCK HEADER MAY BE
* EXAMINED FOR DESTINATION NODE(DN), SOURCE NODE(SN),
* CONNECTION NUMBER(CN), AND/OR THE BITS CANCEL FLAG(C),
* NO FORMAT EFFECTOR FLAG(F), PARITY ERROR FLAG(P), OR
* TRUNCATED DATA FLAG(T).
*
#
*ENDIF
*CALL DIRTBLH
# * * * * * * * * * * * * --- DIRTBLM --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DIRTBLM
* SUBSET OF DIRECTIVE VALUE TABLE FOR DATA MESSAGE PROCESSING
*
* DIRTBLM IS A SUBSET OF DIRTBL CREATED BY DLREP FOR
* USE BY DLMSG. DLMSG IS NOT CALLED IF THERE ARE NO
* DIRECTIVES IN DIRTBLM (DIRNUMM EQ 0). IF SELECTED,
* NUMBER OF ENTRIES WRITTEN TO OUTPUT(NM), BEGINNING
* TIME(BT), ENDING TIME(ET), AND NETLOG ENTRIES
* NOT SELECTED (N) DIRECTIVES WILL BE
* EXAMINED FOR EACH MESSAGE ON THE ZZZZZDN FILE.
* BT DIRECTIVE MUST BE THE LAST ENTRY IN THE DIRTBLM TABLE
*
#
*ENDIF
*CALL DIRTBLM
# * * * * * * * * * * * * --- DIRTBLS --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DIRTBLS
* SUBSET OF DIRECTIVE VALUE TABLE FOR SUPERVISORY MESSAGE
* PROCESSING
*
* DIRTBLS IS A SUBSET OF DIRTBL CREATED BY DLREP FOR USE
* BY DLSM. DLSM IS NOT CALLED BY DLSCAN IF THERE ARE NO
* ENTRIES IN DIRTBLS (DIRNUMS EQ 0). IF SELECTED, THE
* ERROR BIT(E), RESPONSE BIT(R), CONNECTION NUMBER(CN),
* PFC(PF), OR PFCSFC(PS) FIELDS ARE EXAMINED.
*
#
*ENDIF
*CALL DIRTBLS
# * * * * * * * * * * * * --- DLONEL --- * * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC DLONEL
* COMMON BLOCK CONTAINING THE FORMAT FOR ONE BLANK LINE
#
*ENDIF
*CALL DLONEL
# * * * * * * * * * * * * --- DLNOD --- * * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DLNOD
* ARRAY TO STORE NUMBER OF DAYS IN EACH MONTH
#
*ENDIF
*CALL DLNOD
# * * * * * * * * * * * * --- DLTLC --- * * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC DLTLC
* TEXT LENGTH IN CHARACTERS OF SELECTED MESSAGE
#
*ENDIF
*CALL DLTLC
*CALL DRHDIMS
*CALL DRHDR
# * * * * * * * * * * * * --- ERRMSG --- * * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC ERRMSG
* COMMON BLOCK CONTAINING ALL ERROR OR INFORMATIVE MESSAGES
* USED IN DLFP.
#
*ENDIF
*CALL ERRMSG
# * * * * * * * * * * * * * * --- FETDEFS --- * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC FETDEFS
* BASED ARRAY TO DEFINE DIFFERENT FIELDS IN FET AREA
*
* WORD 0
* 4 5 5 5 5 5
* 0 2 0 1 5 6 9
* I------------------------------I------I---I-I---I--I
* I I I I I I I
* I FETNAM I IEOII IEORI I
* I I I I I I I
* I------------------------------I------I---I-I---I--I
*
* FETNAM - FILE NAME
* EOI - END OF INFORMATION FLAG
* EOR - END OF RECORD OR END OF FILE FLAG
*
* WORD 1
* 4 5
* 4 5
* 0 2 9
* I------------------------------I------------------I
* I I I
* I I FET1ST I
* I I I
* I------------------------------I------------------I
*
* FET1ST - FET FIRST POINTER
*
* WORD 2
* 4 5
* 0 2 9
* I-----------------------------I--------------------I
* I I I
* I I FETIN I
* I I I
* I-----------------------------I--------------------I
*
* FETIN - FET IN POINTER
*
* WORD 3
* 4 5
* 0 2 9
* I-----------------------------I--------------------I
* I I I
* I I FETOUT I
* I I I
* I-----------------------------I--------------------I
*
* FETOUT - FET OUT POINTER
*
* WORD 4
* 4 5
* 0 2 9
* I-----------------------------I--------------------I
* I I I
* I I FETLMT I
* I I I
* I-----------------------------I--------------------I
*
* FETLMT - FET LIMIT POINTER
*
#
*ENDIF
*CALL FETDEFS
# * * * * * * * * * * * * * * --- ICIOBB --- * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC ICIOBB
* COMMON BLOCK RESERVING SPACE FOR DIRECTIVE FILE CIO BUFFER
#
*ENDIF
*CALL ICIOBB
# * * * * * * * * * * * * * --- IFETB --- * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC IFETB
* COMMON BLOCK RESERVING SPACE FOR FET AREA OF DIRECTIVE FILE
#
*ENDIF
*CALL IFETB
# * * * * * * * * * * * * * --- MISCOM --- * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC MISCOM
* COMMON DECK HOLDING DEFINITIONS FOR DIFFERENT CHARACTER TYPES
#
*ENDIF
*CALL MISCOM
# * * * * * * * * * * * * * --- MISDEF --- * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC MISDEF
* MISCELLANEOUS DEFINITIONS USED BY NIP AND DLFP.
#
*ENDIF
*CALL MISDEF
# * * * * * * * * * * * * * --- MISDEFX --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC MISDEFX
* MISCELLANEOUS DEFINITIONS
#
*ENDIF
*CALL MISDEFX
# * * * * * * * * * * * * --- MISRES --- * * * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC MISRES
* COMMON BLOCK TO HOLD NIP RESPONSE TIME AVERAGES FOR EACH
* CONNECTION
*
* WORD 0
* 5
* 0 1 2 9
* I------I-------I-----------------------------------I
* I I I I
* I INPF I EXTF I CNCTR I
* I I I I
* I------I-----I-------------------------------------I
*
* INPF - INPUT BLOCK EXISTS FLAG
* EXTF - CONNECTION NUMBER EXISTS FLAG
* CNCTR - NUMBER OF RESPONSES
*
* WORD 1
*
* CNSUM - ACCUMULATOR
*
* WORD 2
*
* CNINPTM - INPUT BLOCK CLOCK TIME
*
#
*ENDIF
*CALL MISRES
*CALL NCIOBB
*CALL NFETB
*CALL NHIMS
*CALL NHEADER
# * * * * * * * * * * * --- NP$NWNC --- * * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
* DC NP$NWNC
* COMMON BLOCK TO HOLD COEFFICIENTS FOR EQUATIONS TO CALCULATE
* THE NUMBER OF WORDS AND CHARACTES IN A DATA BLOCK
#
*ENDIF
*CALL NP$NWN1
# * * * * * * * * * * * * * * * --- OCIOBB --- * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC OCIOBB
* COMMON BLOCK TO HOLD THE CIO BUFFER FOR OUTPUT FILE
#
*ENDIF
*CALL OCIOBB
# * * * * * * * * * * * * * * --- OFETB --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC OFETB
* COMMON BLOCK TO HOLD THE FET AREA FOR OUTPUT FILE
#
*ENDIF
*CALL OFETB
# * * * * * * * * * * * * * * * --- OUTCDA --- * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC OUTCDA
* COMMON DECK FOR OUTPUT REPORT AS USED IN DLREP AND ITS
* SUBORDINATE ROUTINES.
#
*ENDIF
*CALL OUTCDA
# * * * * * * * * * * * * * * * --- SYSDATEX --- * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC SYSDATEX
* COMMON BLOCK TO STORE CURRENT DATE FROM SYSTEM
*
* 5
* 0 6 9
* I---------I----------------------------------------I
* I I I
* I I YYMMDD I
* I I I
* I---------I----------------------------------------I
*
* YYMMDD - CURRENT DATE
*
#
*ENDIF
*CALL SYSDATEX
# * * * * * * * * * * * * * * * --- VDDIR --- * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC VDDIR
* COMMON BLOCK OF VALID DIRECTIVE KEYWORDS.
*
* VDDR ENTRIES HAVE THE FOLLOWING FORMAT:
*
* 4 5
* 0 2 9
* I-----------------------------I--------------------I
* I I I
* I VDENTR I VDLEN I
* I I I
* I-----------------------------I--------------------I
*
* VDENTR - THE DISPLAY CODE VALUE OF A VALID ENTRY
* VDLEN - =3, FOR TWO LETTER INPUT DIRECTIVES
* =1, FOR ONE LETTER INPUT DIRECTIVES
*
#
*ENDIF
*CALL VDDIR
# * * * * * * * * * * * * * * * --- VDPARM --- * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC VDPARM
* COMMON BLOCK TO LIST ALL VALID PARAMETERS FROM PRGM CALL CARD
#
*ENDIF
*CALL VDPARM
# * * * * * * * * * * * * * * * --- WRDPAIR --- * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC WRDPAIR
* COMMON BLOCK CONTAINING PARAMETERS USED BY DLDIS ROUTINE.
#
*ENDIF
*CALL WRDPAIR
# * * * * * * * * * * * * * * --- ZCIOBB --- * * * * * * * * * * * * * #
*IF DEF,IMS
#
*
* DC ZCIOBB
* COMMON BLOCK TO HOLD CIO BUFFER AREA FOR ZZZZZDN FILE
#
*ENDIF
*CALL ZCIOBB
# * * * * * * * * * * * * * --- ZFETB --- * * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC ZFETB
* COMMON BLOCK TO HOLD FET AREA FOR THE ZZZZZDN FILE
#
*ENDIF
*CALL ZFETB
# * * * * * * * * * * * * * * --- ZHRCD --- * * * * * * * * * * * * * *#
*IF DEF,IMS
#
*
* DC ZHRCD
* COMMON BLOCK HOLDING TEMPLATE FOR THE HEADER RECORD OF ZZZZZDN
* FILE.
* INTERNAL FORMAT OF ZZZZZDN -
*
* HEADER WORD 0 -
* W 7
* 4
* 0 2
* I----------------------------I
* I I
* I NIP I
* I I
* I----------------------------I
*
* WHERE
* THE LEFTMOST 42 BITS CONTAINS DISPLAY CODE LITERALS NIP WITH
* ZERO FILL.
*
* HEADER WORD 1 -
* W 7
* 2
* 0 4
* I----------------------I-----------------------I
* I I I
* I SECONDS I MILLISECONDS I
* I I I
* I---------------------I-----------------------I
*
* WHERE
*
*
* SECONDS = ELAPSED TIME SINCE DEADSTART IN SECS.
* MILLISECONDS = ELAPSED TIME SINCE DEADSTART IN MILLISECONDS.
*
* HEADER WORD 2 -
*
* W 7
* 1 2 3 4 5
* 6 8 4 6 2 4
* I----I-----I-----I------I-----I------I-----I
* I I I I I I I I
* I I HH I . I MM I . I SS I . I
* I I I I I I I I
* I----I-----I-----I------I-----I------I-----I
*
*
* WHERE
*
* HH = HOUR IN DISPLAY CODE.
* MM = MINUTE IN DISPLAY CODE.
* SS = SECONDS IN DISPLAY CODE.
*
*
* HEADER WORD 3 -
* W 7
* 1 2 3 4 5
* 6 8 4 6 2 4
* I----I------I-----I------I-----I------I-----I
* I I I I I I I I
* I I YY I / I MM I / I DD I / I
* I I I I I I I I
* I----I------I-----I------I-----I------I-----I
*
*
* WHERE
*
* YY = YEAR IN DISPLAY CODE.
* EG. 1978 WILL BE EXPRESSED AS 4243B.
* MM = MONTH IN DISPLAY CODE.
* DD = DATE OF THE MONTH IN DISPLAY CODE.
*
*
* THE HEADER RECORD IS FOLLOWED BY INDIVIDUAL ZZZZZDN ENTRY
* CONTAINING AN INBOUND OR OUTBOUND MESSAGE.
* INTERNAL FORMAT OF EACH ZZZZZDN ENTRY -
*
*
* WORD 0 -
*
* W 7
* 2
* 0 4
* I---------------------I-----------------------I
* I I I
* I SECONDS I MILLISECONDS I
* I I I
* I---------------------I-----------------------I
*
* WHERE
*
*
* SECONDS = ELAPSED TIME SINCE DEADSTART IN SECS.
* MILLISECONDS = ELAPSED TIME SINCE DEADSTART IN MILLISECONDS.
*
*
* WORD 1 -
*
* W 7
* 2
* 6 3
* I----------I----------I
* I I I
* I BPIPID I BPIPBS I
* I I I
* I----------I----------I
*
*
* WHERE
*
* BPIPID = BLOCK ID.
* 14 FOR INBOUND, 15 FOR OUTBOUND.
* BPIPBS = BLOCK SIZE. SIZE OF ZZZZZDN ENTRY MINUS ONE.
*
*
* WORD 2 -
*
* W 5
* 1 2 2 2 3 4 4 4
* 0 8 6 4 5 8 2 0 4 8
* I--I--I--I-----I-----I--I-----I-----I-I--I
* IDNISNICNINHPRIINHBSNIBTINHDBCINHACTIBICCI
* I--I--I--I-----I-----I--I-----I-----I-I--I
*
* SEE NHEADER FOR EXPLANATION OF THE ABOVE FIELDS.
* MESSAGE TEXT WILL FOLLOW THIS WORD.
*
#
*ENDIF
*CALL ZHRCD
*IF DEF,IMS
#
*1DC DLFP
*
* 1. PROC NAME AUTHOR DATE.
* DLFP P.C.TAM 78/09/15
*
* 2. FUNCTIONAL DESCRIPTION.
* MAIN PROGRAM.
* CALL DLARG TO PROCESS ARGUMENT FROM PROGRAM CALL CARD,
* CALL DLDIRP TO SCAN DIRECTIVES
* CALL DLREP TO GENERATE OUTPUT
*
* 3. METHOD USED.
* SAME AS 2.
*
* 4. ENTRY PARAMETERS.
* NONE.
*
* 5. EXIT PARAMETERS.
* NONE.
*
* 6. COMMON DECKS CALLED.
* CRCOM CYBERDEFS ARGERR ARGTBL AWLDEFS
* DEQCOM DIERR DIRTBL DIRTBLH DIRTBLM
* DIRTBLS DLONEL DLNOD DLTLC DRHDR
* ERRMSG FETDEFS ICIOBB IFETB MISCOM
* MISDEF MISDEFX MISRES NCIOBB NFETB
* NHEADER OCIOBB OFETB OUTCDA SYSDATEX
* VDDIR VDPARM WRDPAIR ZCIOBB ZFETB
* ZHRCD
*
* 7. ROUTINES CALLED.
* DLABEND ABORT MAIN LINE
* DLARG PROCESS ARGUMENTS FROM PROGRAM CALL CARD
* DLDT GET CURRENT DATE
* DLDIRP SCAN DIRECTIVE FILE
* DLDFM LOG DAYFILE MESSAGE
* DLENDPR TERMINATION PROCESSING
* DLINT INITIATE READ/WRITE ON FILE
* DLOPEN OPEN FILE
* DLPSIN BUBBLE SORT VALUES OF PFC/SFC
* DLRDW READ A RECORD FROM FILE
* DLRECL WAIT FOR EVENT COMPLETION
* DLREP REPORT GENERATOR
* DLRWD REWIND FILE BACK TO BOI
*
* 8. DAYFILE MESSGES.
* NONE.
*
#
*ENDIF
#
EXTERNAL VARIABLES
#
XREF
BEGIN
PROC DLABEND; # ABORT MAIN LINE #
PROC DLARG; # SCAN FOR PARAMETERS IN PROGRAM CALL #
PROC DLCLOSE; # CLOSE FILE #
PROC DLDT; # GET CURRENT DATE #
PROC DLDIRP; # SCAN DIRECTIVE FILE #
PROC DLDFM; # LOG DAYFILE MESSAGE PROCESSOR #
PROC DLENDPR; # TERMINATION PROCESSING #
PROC DLINT; # INITIATE READ/WRITE ON FILE #
PROC DLOPEN; # OPEN FILE #
PROC DLPSIN; # BUBBLE SORT VALUES OF PFC/SFC #
PROC DLRDW; # READ RECORD FROM FILE #
PROC DLRECL; # WAIT FOR EVENT COMPLETION #
PROC DLREP; # OUTPUT FILE GENERATOR #
PROC DLRWD; # REWIND FILE TO BOI #
END
#
LOCAL VARIABLES
#
ITEM
ERRCODE I, # ERROR RETURN CODE FROM SUBMODULES #
RSIZE I, # REAL RECORD SIZE #
I I, # TEMPORARY VARIABLE #
UNPTR B, # FLAG FOR DLDIRP MODULE #
IEOF B = FALSE; # END OF FILE FLAG #
BASED ARRAY PRODID[0:0] S(1);
BEGIN
ITEM PROD$ID C(00,00,03);
END
#**********************************************************************#
BEGIN
#
SCAN PARAMETERS TO DETERMINE INPUT, OUTPUT, AND DIRECTIVE
FILE NAMES
#
NTOFF = FALSE;
DLARG; # PROCESS CONTROL CARD PARAMETERS #
DLPSIN; # BUBBLE SORT VALUES OF PFC/SFC #
DLDT(SYSDATEY); # GET DATE #
P<FETDEFS> = LOC(OFET0[0]); # INITIALIZE OUTPUT FILE NAME #
FETNAM[0] = ARGENTR[OFILE]; # SET OUTPUT FILE NAME #
DLOPEN(OFET, WRITENR); # OPEN OUTPUT FILE #
DLINT(OFET, WRITENR); # INITIALIZE WRITE OPERATION #
IF ARGFLAG[NFILE]
THEN
BEGIN # INITIALIZE NEW DEBUG LOG FILE FETS #
P<FETDEFS> = LOC(NFET);
FETNAM[0] = ARGENTR[NFILE];
DLOPEN(NFET, WRITENR);
DLINT(NFET, WRITENR);
END
P<FETDEFS> = LOC(ZFET0[0]); # INITIALIZE ZZZZZDN FILE NAME #
FETNAM[0] = ARGENTR[ZFILE]; # SET ZZZZZDN FILE NAME #
DLOPEN(ZFET, READNR); # OPEN ZFILE #
DLRWD(ZFET); # REWIND ZZZZZDN FILE TO BOI #
DLINT(ZFET, READNR); # INITIATE FILE FOR READING #
DLRDW(ZFET, ZHSIZE, TEMPB1, RSIZE); # READ FILE HEADER #
IF RSIZE LS 0 # (EOF) OR (EOI) #
THEN # ZZZZZDN FILE EMPTY #
BEGIN
DLDFM(EMP$ZFILE); # EMPTY ZZZZZDN FILE #
END
ELSE
BEGIN
IF RSIZE NQ ZHSIZE OR PROD$ID[0] EQ " "
THEN
BEGIN # BAD ZZZZZDN FILE CONTENT #
DLDFM(BAD$ZFILE);
DLABEND;
END
#
SCAN DIRECTIVE FILE AND GENERATE REPORT
#
IF ARGENTR[INFILE] NQ O"33000000000000000000"# I=0, NO DIR FILE #
THEN # INPUT DIRECTIVE FILE EXISTS #
BEGIN
P<FETDEFS> = LOC(IFET0[0]);# INITIALIZE INPUT FILE #
FETNAM[0] = ARGENTR[INFILE];# SET INPUT FILE NAME #
DLOPEN(IFET, READNR); # OPEN FILE #
DLINT(IFET, READNR); # INITIALIZE READ #
DLRECL(IFET); # WAIT FOR INITIALIZE READ TO FIN #
#
LOOP TO READ EACH DIRECTIVE RECORD, AND PROCESS IT
#
FOR I = 0 STEP 1 WHILE NOT IEOF
DO
BEGIN
ERRCODE = 0;
IF FETIN[0] EQ FETOUT[0] AND # CIO BUFFER EMPTY #
(FETEOI[0] EQ 1 OR # FILE AT EOI #
FETEOF[0] EQ 3 OR # FILE AT EOF #
(FETEOR[0] EQ 2 AND # FILE AT EOR AND #
FETDT[0] NQ "TT")) # NOT A TERMINAL INPUT #
THEN
IEOF = TRUE;
ELSE # DIRECTIVES AVAILABLE #
BEGIN
DLDIRP(UNPTR,ERRCODE);# FILE DIRECTIVE SCANNER #
IF FETDT[0] EQ "TT" # IT IS A TERMINAL JOB #
THEN
BEGIN
IF UNPTR AND # EMPTY LINE INPUT #
I NQ 0 # NOT 1ST TIMER #
THEN
IEOF = TRUE;
END
END
IF (NOT IEOF OR
(IEOF AND I EQ 0)) AND
ERRCODE EQ 0
THEN # INPUT AVAILABLE, OR INPUT FILE EMPTY #
BEGIN
DLRWD(ZFET); # REWIND FILE TO BOI #
DLINT(ZFET, READNR);# INITIATE FILE FOR READ #
DLREP; # REPORT GENERATOR #
IF FETEOR[0] EQ 2 AND FETDT[0] EQ "TT"
THEN # RE-INITIALIZE READ #
DLINT(IFET,READNR);
END
END
END
ELSE # NO INPUT DIRECTIVE FILE #
BEGIN
DLRWD(ZFET); # REWIND FILE TO BOI #
DLINT(ZFET, READNR); # INITIATE FILE FOR READ #
DLREP; # REPORT GENERATOR #
END
END
DLDFM(DL$COMP); # DLFP COMPLETE #
DLENDPR; # TERMINATION PROCESSING #
STOP;
END
TERM