Memorex LOCK - VERSION 2-24 Informacje Techniczne Strona 391

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 568
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 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)
Przeglądanie stron 390
1 2 ... 386 387 388 389 390 391 392 393 394 395 396 ... 567 568

Komentarze do niniejszej Instrukcji

Brak uwag