How to Use CULLUS25

To invoke CULLUS25:

First—Define the input file containing the retrieval key on the INPUT parameter and in the CULL step of the CA Culprit JCL.

Second—Define the VSAM file on an INPUT parameter and in the CA Culprit JCL:

For non-database runs, use the MB= DUMMY option on an additional INPUT parameter.
For database runs, use one INPUT parameter that includes the extra storage requirement in the record size specification.
Use the external file name SYS020 in CA Culprit JCL.

Third—Define the key fields in each file on REC parameters.

Fourth—Issue a CALL to CULLUS25 in type 7 logic:

Col
2
▼
RPT-nn7sss CALL US25 (conversion-qv search-v key-v length-vn return-v
                         external-file-name-v var-length-field-v)

Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
Conversion-qv (ARG1) requires a 1-byte alphanumeric code, enclosed in single quotation marks, to specify the conversion of the unsigned bit string in the VSAM key field:

The code...	Converts to...
Blank	None
'1'	Binary
'2'	Zoned decimal without changing the sign bit value
'3'	Packed decimal without changing the sign bit value
'P'	Packed decimal with the sign X'F'
'U'	Zoned decimal with the sign X'F'
'9'	None. Closes the VSAM file

Search-v (ARG2) requires a numeric literal or the name of an optional 8-byte numeric field. Values of this field control the type of search and compare method used to access the VSAM file:

Search value	Search type	Compare method	Record retrieved
Zero	Full key (FKS)	Key equal (KEQ)	The record with an identical key
Less than the VSAM key field size	Generic (GEN)	Key greater than or equal to (KGE)	The first having n positions greater than or equal to n positions of the search key
Greater than or equal to the VSAM key field size	Full key (FKS)	Key greater than or equal to (KGE)	The first having a full key value greater than or equal to the search key

Key-v (ARG3) requires the name of the key field used for retrieving records from the VSAM file. If conversion-qv is nonblank, this field must be a work field containing the key value.
Length-vn (ARG4) requires a numeric literal or the name of an 8-byte numeric field that contains the length of the receiving field (return-v).
Return-v (ARG5) requires the name of a work field or a dummy buffer area field to receive the retrieved VSAM record.
When a NO RECORD FOUND condition occurs, CULLUS25 returns two asterisks (**) followed by blank spaces to return-v.
External-file-name-v (ARG6) requires an alphanumeric literal or the name of an 8-byte alphanumeric field that specifies the ddname, filename, or filedef of the VSAM file accessed. Ddname (z/OS) must be eight characters and blank filled to the right.
If external-file-name-v is blank or not used, CULLUS25 assumes an external file name of SYS020 for the file.
Var-length-field-v (ARG7) requires the name of an 8-byte packed decimal work field that holds the current record length contained in a variable-length VSAM file.

Fifth—Test for a NO RECORD FOUND condition in type 7 logic.