Memorex LOCK - VERSION 2-24 Información técnica Pagina 391

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 568
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 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)
Vista de pagina 390
1 2 ... 386 387 388 389 390 391 392 393 394 395 396 ... 567 568

Comentarios a estos manuales

Sin comentarios