IBM SC34-5764-01 Manuale Utente Pagina 350

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 481
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 349
Return Codes
0 Normal return
2002 Invalid operand
2021 Invalid structure definition
2022 Invalid variable structure definition
2023 Field name not found
2025 Failure processing GETVAR request
2026 Invalid numeric input
2027 RFS read error
2028 Invalid offset
2029 Invalid length value
Examples
/* Needed if entering example from the REXXTRY utility */
'PSEUDO OFF'
'CICS GETMAIN SET(WORKANC) LENGTH(200)'/* get 200 bytes of working storage */
VAR1 = '00000000'x /* set a REXX variable with 4 bytes of hex */
'COPYR2S VAR1 WORKANC 4'
This example requests 200 bytes of virtual storage and copies the hex value of '00000000'x into bytes 4
through 7 of that area.
'CICS GETMAIN SET(WORKANC) LENGTH(200)'/* get 200 bytes of working storage */
VAR1 = 'ABC' /* set a REXX variable with 3 characters */
struct1 = 'flda 4 fldb 2 fldc 3 fldd 8 flde 5'
'COPYR2S VAR1 WORKANC STRUCT1 FLDC'
This example requests 200 bytes of virtual storage and copies the character string ABC to position 7 of the
GETMAINed area referenced by anchor WORKANC.
Commands
328
CICS TS for VSE/ESA: REXX Guide
Vedere la pagina 349
1 2 ... 345 346 347 348 349 350 351 352 353 354 355 ... 480 481

Commenti su questo manuale

Nessun commento