Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual QSYOBJT12 Ifeq \SRVPGM, Eval Lstptr = Addrarrqussee + END, Ifeq \BLANKS Move

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 254
Image 254

C

QSYOBJT12

IFEQ

'\SRVPGM'

C\

 

 

 

C\ Process \SRVPGM type

 

C\

 

 

 

C

 

ELSE

 

C\

 

 

 

↓

C\

C\ Unknown type, log an error and exit from program (maybe..)

C\

 

 

C

EXSR

DONE

C

END

 

C

END

 

C

END

 

C\

C\ after each entry, increment LSTPTR to the next entry

C\

 

 

 

 

 

C

 

EVAL

 

LSTPTR =

%ADDR(ARR(QUSSEE + 1))

C

 

END

 

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ When all entries in this user space

have been processed,￿ check

C\ if more entries exist

than

can fit in one user space

C\

 

 

 

 

 

C

QUSIS

IFEQ

 

'P'

 

C\

 

 

 

 

 

C\ by resetting LSTPTR to the

start of

the user space

C\

 

 

 

 

 

C

 

EVAL

 

LSTPTR =

SPCPTR

C\

 

 

 

 

 

C\ and then incrementing

LSTPTR to the

input parameter hea￿der

C\

 

 

 

 

 

C

 

EVAL

 

LSTPTR =

%ADDR(ARR(QUSOIP + 1))

C\

C\ If the continuation handle in the input parameter heade￿r is

C\ blank, then set the list status to complete.

C\

 

 

 

 

C

QSYCVðð

IFEQ

\BLANKS

 

C

 

MOVE

'C'

LST_STATUS

C

 

ELSE

 

 

C\

C\ Else, call QSYLOBJP reusing the user space to get more

C\ list entries

 

 

 

C\

 

 

 

C

MOVE

QSYCVðð

CONTIN_HDL

C

EXSR

GETLST

 

C

MOVE

QUSIS

LST_STATUS

C

END

 

 

C

END

 

 

C

ELSE

 

 

C\

 

 

 

C\ And if an unexpected status, log an error (not shown) and e￿xit C\

C

 

EXSR

DONE

C

 

END

 

C

 

END

 

C

 

ENDSR

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

GETLST

BEGSR

 

9-48System API Programming V4R1

Page 253 Page 255
Page 254
Image 254
IBM Version 4 QSYOBJT12 Ifeq \SRVPGM, Eval Lstptr = Addrarrqussee + END, Eval Lstptr = Addrarrqusoip +, Ifeq \BLANKS Move
Page 253 Page 255