C ENDIF HDL = BLANKS
C ENDIF INFOSTS = ð
C ELSE
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\If there exists an unexpected status, log an error (not shown)
C\and exit.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C EXSR DONE done();
C ENDIF #ENT > ð
C ENDIF USRSPC=P/C
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: proces
C\
C\ Description: Processes entries until they are complete.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C PROCES BEGSR
C MOVELQUSBPJ LSTSTS
C LSTSTS DOUEQ'C'
C LSTSTS OREQ 'I'
C EXSR PROC1 proces1();
C ENDDO
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: done
C\
C\ Description: Exits the program.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C DONE BEGSR
C EXCPTENDLST
C SETON LR
C ENDSR
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\ Function: apierr
C\
C\ Description: This function prints the API name, and exception
C\ identifier of an error that occurred.
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C APIERR BEGSR
C APINAM DSPLY
C QUSBND DSPLY
C EXSR DONE
C ENDSR
O\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
O\ Function: PRTENT
O\
O\ Description: This function prints the information returned in
O\ user space.
O\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
OQSYSPRT E 1ð6 PRTENT
O 'Object: '
O QSYB6C
O 'Library: '
O QSYB6D
O 'Type: '
O QSYB6F
Chapter 5. List APIs 5-11