Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual Qusbn \ Retrieve List Entries Qusbpq ADD Start

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 219
Image 219
Chapter

 

\ CREATE THE SPACE TO HOLD THE DATA

 

C

 

CALL

'QUSCRTUS'

 

C

 

PARM

 

SPCNAM

 

C

 

PARM

'EXT_ATTR'EXTATR 1ð

C

 

PARM

 

SIZ

 

C

 

PARM

 

INTVAL

 

C

 

PARM

'\ALL

'PUBAUT 1ð

C

 

PARM

'TEXT DSC'TXTDSC 5ð

C

 

PARM

'\YES

'REPLAC 1ð

C

\

PARM

 

QUSBN

 

 

 

 

 

 

 

\ CALL THE API TO LIST THE ACTIVE JOBS

 

C

 

CALL

'QUSLJOB'

 

 

C

 

PARM

 

SPCNAM

 

C

 

PARM

'JOBLð1ðð'FORMAT

8

C

 

PARM

 

JOBNAM

 

C

 

PARM

'\ACTIVE 'STAT

1ð

C

\

PARM

 

QUSBN

 

 

 

 

 

 

 

\ RETRIEVE THE OFFSET OF

THE FIRST

LIST ENTRY FROM THE SPAC￿E

C

 

Z-ADD1

START

 

C

 

Z-ADD14ð

LENDTA

 

C

 

CALL

'QUSRTVUS'

 

C

 

PARM

 

SPCNAM

 

C

 

PARM

 

START

 

C

 

PARM

 

LENDTA

 

C

 

PARM

 

QUSBP

 

C

\

PARM

 

QUSBN

 

 

 

 

 

 

 

\ RETRIEVE LIST ENTRIES

 

 

 

C

QUSBPQ

ADD

1

START

 

C

\

Z-ADD6ð

LENDTA

.8/

 

\

 

 

 

 

 

C

 

Z-ADD1

X

9ð

C

X

DOWLEQUSBPS

 

 

C

 

CALL

'QUSRTVUS'

 

C

 

PARM

 

SPCNAM

 

C

 

PARM

 

START

 

C

 

PARM

 

LENDTA

 

C

 

PARM

 

RECVR

6ð .9/

C

\

PARM

 

QUSBN

 

C

MOVELRECVR

QUSDD

 

 

 

C

 

ADD

QUSBPT

START

 

C

 

ADD

1

X

 

C

 

END

 

 

 

 

\ DELETE THE SPACE THAT HELD THE DATA

 

C

 

CALL

'QUSDLTUS'

 

C

 

PARM

 

SPCNAM

 

C

\

PARM

 

QUSBN

 

C

SETON

 

 

LR

\

 

 

 

 

 

 

 

9. Common API Programming Errors 9-13

Page 218 Page 220
Page 219
Image 219
IBM Version 4 manual Qusbn \ Retrieve List Entries Qusbpq ADD Start
Page 218 Page 220