Topic
No replies
SystemAdmin
SystemAdmin
403 Posts
ACCEPTED ANSWER

Pinned topic COBOL "CALL CSNBKGN USING"

‏2012-02-01T13:39:11Z |
Someone can help me, how i use the utility "CSNBOWH"?
I have program in COBOL execute "call".
How I must format the fields below?
CALL CSNBOWH USING RETURN-CODE-O
REASON-CODE-O
EXIT-DATA-LENGTH-IO
EXIT-DATA-IO
RULE-ARRAY-COUNT-I
RULE-ARRAY-I
TEXT-LENGTH-I
TEXT-I
CHAINING-VECTOR-LENGTH-I
CHAINING-VECTOR-IO
HASH-LENGTH-I
HASH-IO.
The definition of the fields below is correct?
*********DYNAMIC PROGRAMS*************************
01 DYNAMIC-SUBPROGRAM.
03 CSNBOWH PIC X(08) VALUE 'CSNBOWH '.
  • DEFINE SAPI INPUT/OUTPUT PARAMETERS
01 SAPI-REC.
05 RETURN-CODE-O PIC 9(08) COMP.
05 REASON-CODE-O PIC 9(08) COMP.
05 EXIT-DATA-LENGTH-IO PIC 9(08) COMP.
05 EXIT-DATA-IO PIC X(04).
05 RULE-ARRAY-COUNT-I PIC 9(08) COMP.
05 RULE-ARRAY-I PIC X(08).
05 TEXT-LENGTH-I PIC 9(08) COMP.
05 TEXT-I PIC X(64).
05 CHAINING-VECTOR-LENGTH-I PIC 9(08) COMP.
05 CHAINING-VECTOR-IO PIC X(128).
05 HASH-LENGTH-I PIC 9(08) COMP.
05 HASH-IO PIC X(128).
Best Regards.
Updated on 2012-02-02T12:56:03Z at 2012-02-02T12:56:03Z by brataj
  • brataj
    brataj
    40 Posts
    ACCEPTED ANSWER

    Re: COBOL "CALL CSNBKGN USING"

    ‏2012-02-02T12:56:03Z  in response to SystemAdmin
    Hi Jose,

    That looks more or less correct.

    I would however suggest using COMP-5 (native binary) for the fullword (integer) parameters as they're not subject to truncation to the number of decimal digits given in the PIC specification.

    Bernie