Memorex LOCK - VERSION 2-24 Especificaciones descargar pdf (Pagina 323)

Using the JMCL Interface (TSIDJC2) Updating JMCL Data (PUT REQUEST)

Chapter 9. Job Management Control Language 9-17

Updating JMCL Data (PUT REQUEST)

JMCL data can updated by passing a character ‘P’ to TSIDJC2 in the request byte of the

parameter. This byte is labeled JCSREQ in TSIDJC2.A and JCS-REQ in TSIDJC2.C. A Put

request updates the current JMCL condition code, the highest JMCL condition code, all JMCL

symbolics and all global constants. All Put requests should be preceded by a Get request to

ensure that all data fields that are not explicitly being modified are updated to their previous

data values. Control is returned to the next instruction following the CALL.

Move the new condition code to the appropriate data field as a 2-byte binary value. During

the update process, the highest condition code is set first. Then the current codition code is

set. When the current condition code is set, it is checked against the highest condition code to

determine whether the new current condition code is now also the new highest condition code.

The JMCL current condition code is labeled JCSCC in TSIDJC2.A and JCS-CURR-COND-

CODE in TSIDJC2.C. The JMCL highest condition code is labeled JCSHC in TSIDJC2.A

and JCS-HIGH-COND-CODE in TSIDJC2.C.

Move the new 1 - 20 character symbolic into its appropriate data field. Symbolics &0 thru &9

are labeled JCSSYM0 thru JCSSYM9 in A.TSIDJC2 and JCS-SYMBOLIC-0 thru JCS-

SYMBOLIC-9 in C.TSIDJC2. If the new symbolic is less than 20 characters, it must be left-

justified and padded with spaces on the right. To remove a symbolic, clear the symbolic data

field with hex zeros or LOW-VALUES.

Move the new 1 - 16 character constant into its appropriate data field. Global constants G01

thru G15 correspond to the parameter data fields JCSGBL1 thru JCSGBL15 in A.TSIDJC2

and JCS-GLOBAL-CONS-1 thru JCS-GLOBAL-CONS-15 in C.TSIDJC2. If the new global

constant is less than 16 characters, it 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.

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.

PUT REQUEST (P)

To update current

or highest JMCL

condition code

To update a

symbolic

To update a global

constant

COBOL Example

1 2 ... 318 319 320 321 322 323 324 325 326 327 328 ... 488 489

Comentarios a estos manuales

Sin comentarios

Memorex LOCK - VERSION 2-24 Especificaciones Pagina 323

Comentarios a estos manuales