gtpd1m1xDatabase Reference

File Print

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:

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

File Print Errors

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.