IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
Cᑍ QDBRTVFD to use the User Space.
Cᑍ
C CALL 'QDBRTVFD'
C PARM QDBQ25
C PARM 1677674 SPC_SIZE
C PARM FILE_USED
C PARM 'FILD1' FORMAT
C PARM FILE_NAME
C PARM FMT_NAME
C PARM OVERRIDES
C PARM SYSTEM
C PARM FORMAT_1
C PARM QUSEC
Cᑍ
Cᑍ Check for errors on QDBRTVFD
Cᑍ
C QUSBAVL IFGT
C MOVEL 'QDBRTVFD' APINAM 1
C EXSR APIERR
C END
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C APIERR BEGSR
Cᑍ
Cᑍ Log any error encountered, and exit the program
Cᑍ
C APINAM DSPLY
C QUSEI DSPLY
C EXSR DONE
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C DONE BEGSR
Cᑍ
Cᑍ Exit the program
Cᑍ
C EVAL ᑍINLR = '1'
C RETURN
C ENDSR
Data Queue—Examples
This section includes the examples in “Using Data Queues versus User Queues” on
page A-15.
Data Queue—ILE COBOL Example
Refer to “Data Queue—ILE C Example” on page A-16 for the original example.
The following program also works with OPM COBOL.
IDENTIFICATION DIVISION.
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍ
ᑍ Program Name: DQUEUEX
ᑍ
ᑍ Programming Language: COBOL
ᑍ
ᑍ Description: This program illustrates how to use APIs to
Appendix B. Original Examples in Additional Languages B-165
 previous next