gtpd1m1x | Database Reference |
The DFAD file print routine uses MVS job control language (JCL) statements as input and produces a listing that contains the record type, ordinal number, and associated FACE generated file address.
The following shows an example of the JCL statements needed to run the file print routine:
//DFAD EXEC PGM=DFAD40,PARM='ALL,nn' //JOBLIB DD DSN=ACP.LINK.RLSE40.BSS,DISP=SHR //SYSOUT DD SYSOUT=A //DFADPRT DD SYSOUT=A
Where:
ENTER FCTB TABLE VERSION, (FF TO END JOB)
DFAD runs a FACE-type call for each record type index in the range 0 through the highest record type defined. If the record type is valid to FACE, DFAD prints the address returned from FACE in the current dispense format for every valid ordinal number for that record type. The output listing contains the following information for valid record types:
DFAD prints a single line message for invalid record types.
The following shows an example of the output listing.
ORDNL RETURNED ORDNL RETURNED ORDNL ID NUMBER ADDRESS ID NUMBER ADDRESS ID NUMBER * NEXT RECORD TYPE ATTEMPTED: ID=004( ) RECORD TYPE NOT ALLOCATED/NOT IN USE,ID=004( ) * NEXT RECORD TYPE ATTEMPTED: ID=005(#SSSRI ) #SSSRI 000000 02800006 #SSSRI 000001 0280000E #SSSRI 000002 #SSSRI 000004 02800026 #SSSRI 000005 0280002E #SSSRI 000006 #SSSRI 000008 02800046 #SSSRI 000009 0280004E #SSSRI 00000A #SSSRI 00000C 02800066 #SSSRI 00000D 0280006E #SSSRI 00000E #SSSRI 000010 02800086 #SSSRI 000011 0280008E #SSSRI 000012
If the version of the FCTB specified is not available, the job ends with system completion code of 806.
If you specify PARM data that is less than 6 characters or if ALL is not the first parameter, the following message displays:
INSUFFICIENT OR ERRONEOUS 'PARM' DATA
A return code of 16 is placed in register 15 and the job ends.