Memorex LOCK - VERSION 2-24 Technické informace Strana 391

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 568
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 390
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)
Zobrazit stránku 390
1 2 ... 386 387 388 389 390 391 392 393 394 395 396 ... 567 568

Komentáře k této Příručce

Žádné komentáře