The following example illustrates how a CA Ideal program passes parameters to a CICS non-Ideal subprogram and how the subprogram, handles these parameters.
For example, a CA Ideal program defines the following fields in working data:
The program's procedure definition includes the following CALL statement:
CALL COBSUB USING ALPHA,BETA
The COBOL subprogram's program definition includes the following parameter definition.
=> => => ---------------------------------------------------------------------------------------- IDEAL: PARAMETER DEFINITION PGM COBSUB (001) TEST SYS: DOC DISPLAY Level Field Name T I Ch/Dg Occur U Comments/Dep on/Copy Command ----- --------------------------- - - ----- ----- - ----------------------- ------ ===== ==============TOP========== = = ===== ===== = ======================= ====== 1 PAR-1 X 4 U :4 BYTES ALPHANUMERIC 000100 1 PAR-1 U B 9 U :BINARY FULLWORD 000200 ===== =============BOTTOM ======= = = ===== ===== = ======================= ======
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|