C

ENDIF

HDL = BLANKS

C

ENDIF

INFOSTS = ð

C

ELSE

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ C\If there exists an unexpected status, log an error (not sh￿own) 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 APIs5-11

Page 123
Image 123
IBM Version 4 manual Endif USRSPC=P/C Endsr, Begsr Movelqusbpj Lststs, Doueqc, Oreq Exsr PROC1, Enddo Endsr, Dsply, Prtent