
Updating JMCL Data
User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
9-23
If you are using TSIDJC2.C, global constants G01 through G15
correspond to the parameter data fields JCS-GLOBAL-CONS-1
through JCS-GLOBAL-CONS-15.
If the new global constant is less than 16 characters, the global constant
must be left justified and padded with spaces on the right. To remove a
global constant, clear the global constant data field with hex zeros or
LOW-VALUES.
COBOL
Example
The following example is a PUT request in COBOL.
WORKING-STORAGE SECTION.
COPY TSIDJC2.
.
.
.
PROCEDURE DIVISION.
MOVE 'G' TO JCS-REQ.
CALL 'TSIDJC2' USING JCS-START.
MOVE 0 TO JCS-CURR-COND-CODE.
MOVE 'MONTHLY' TO JCS-SYMBOLIC-2.
MOVE LOW-VALUES TO JCS-GLOBAL-CONSTANT-10.
MOVE 'P' TO JCS-REQ.
CALL 'TSIDJC2' USING JCS-START.
Assembler
Example
The following example is a PUT request in Assembler.
MVI JCSREQ,JCSREQG
CALL TSIDJC2,(JCSSTART)
MVC JCSCC,=XL2'00'
MVC JCSSYM2,=CL20'MONTHLY'
XC JCSGBL10,JCSGBL10
MVI JCSREQ,JCSREQP
CALL TSIDJC2,(JCSSTART)
Comentarios a estos manuales