Filter
Top Products
Cᑍ
C CALL QWDRJOBD
C PARM QWDD1
C PARM RCVLEN
C PARM FORMAT
C PARM LFNAM
C PARM QUSEC
Cᑍ
Cᑍ If no bytes available, API was successful; print HOLD value
Cᑍ
C IF QUSBAVL =
C EXCEPT GOOD
C ELSE
Cᑍ
Cᑍ If some bytes available, API failed; print Error message ID
Cᑍ
C IF QUSBAVL >
C EXCEPT BAD
C END
C END
Cᑍ
Cᑍ End of program
Cᑍ
C EVAL ᑍINLR = '1'
C RETURN
Cᑍ
Cᑍ End of MAINLINE
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Oᑍ
OQPRINT E GOOD 1 6
O 'HOLD value - '
O QWDHJQ
OQPRINT E BAD 1 6
O 'Failed. Error ID - '
O QUSEI
Accessing a Field Value (Initial Library List)—ILE C Example
Refer to “Accessing a Field Value (Initial Library List)—OPM RPG Example” on
page 3-19 for the original example.
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ ᑍ/
/ᑍProgram Name: JOBDAPI ᑍ/
/ᑍ ᑍ/
/ᑍProgramming Language: ILE C ᑍ/
/ᑍ ᑍ/
/ᑍDescription: This example shows how to access a field ᑍ/
/ᑍ value returned from a retrieve API. ᑍ/
/ᑍ ᑍ/
/ᑍHeader Files Included: STDIO - Standard Input/Output ᑍ/
/ᑍ STRING - String Functions ᑍ/
/ᑍ QUSEC - Error Code Parameter ᑍ/
/ᑍ QWDRJOBD - Retrieve Job Description API ᑍ/
/ᑍ QLIEPT - Entry Point Table ᑍ/
/ᑍ ᑍ/
B-22 System API Programming V4R1