Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual Outq

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 78
Image 78

 

C

 

PARM

'SPLFð2ðð'FORMAT

8

.4/

 

C

 

PARM

'\CURRENT'USRNAM 1ð

 

 

C

 

PARM

'\ALL'

OUTQ

2ð

 

 

C

 

PARM

'\ALL'

FRMTYP 1ð

 

 

C

 

PARM

'\ALL'

USRDTA 1ð

 

 

C

 

PARM

 

QUSBN

 

 

 

C

 

PARM

 

JOBNAM 26

 

 

C

 

PARM

 

KEYARA

 

.5/

 

C

 

PARM

3

KEY#

 

.6/

 

C\

 

 

 

 

 

 

 

C\ Retrieve information concerning the User Space and its￿ contents

 

C\

 

 

 

 

 

 

 

C

 

CALL

'QUSRTVUS'

.9/

 

 

 

C

 

PARM

 

SPCNAM

 

 

 

C

 

PARM

1

START

 

Start Rtv at 1

 

C

 

PARM

192

LENDTA

 

for length =192

 

C

 

PARM

 

QUSBP

 

.1ð/

 

C

 

PARM

 

QUSBN

 

 

 

C\

 

 

 

 

 

 

 

C\ Check User Space status

for good information

 

 

C\

 

 

 

 

 

 

 

C

QUSBPD

IFEQ

'ð1ðð'

.12/

 

Header Fmt

 

C

QUSBPJ

IFEQ

'C'

.14/

 

Complete

 

C

QUSBPJ

OREQ

'P'

 

 

or Partial

 

C\

 

 

 

 

 

 

 

C\ Check to see if any entries were put into User Space

 

C\

 

 

 

 

 

 

 

C

QUSBPS

IFGT

ð

.16/

 

 

 

C\

 

 

 

 

 

 

 

C\ Keep count of how many list entries we have processed

 

C\

 

 

 

 

 

 

 

C

 

Z-ADDð

COUNT

9ð

.17/

 

C\

 

 

 

 

 

 

 

C\ Adjust Offset value to Position value

 

 

 

C\

 

 

 

 

 

 

 

C

QUSBPQ

ADD

1

START

 

.18/

 

C\

 

 

 

 

 

 

 

C\ Retrieve the lesser of allocated storage or available d￿ata

 

C\

 

 

 

 

 

 

 

C

QUSBPT

IFLT

1ððð

.19/

 

 

 

C

 

Z-ADDQUSBPT

LENDTA

 

 

 

C

 

ELSE

 

 

 

 

 

C

 

Z-ADD1ððð

LENDTA

 

 

 

C

 

ENDIF

 

 

 

 

 

C\

 

 

 

 

 

 

 

C\ Process all entries returned

 

 

 

 

C\

 

 

 

 

 

 

 

C

COUNT

DOWLTQUSBPS

.2ð/

 

 

 

C\

 

 

 

 

 

 

 

C\ Retrieve spooled file information

 

 

 

 

C\

 

 

 

 

 

 

 

C

 

CALL

'QUSRTVUS'

.21/

 

 

 

C

 

PARM

 

SPCNAM

 

 

 

C

 

PARM

 

START

 

 

 

C

 

PARM

 

LENDTA

 

 

 

C

 

PARM

 

RECVR

 

 

 

C

 

PARM

 

QUSBN

 

 

 

C\

 

 

 

 

 

 

 

C\ Loop through returned fields

 

 

 

 

C\

 

 

 

 

 

 

 

C

4

SUBSTRECVR

QUSFV

 

.22/

 

C

 

Z-ADD5

X

4ð

 

 

C

 

DO

QUSFVB

.23/

 

 

 

C\

 

 

 

 

 

 

 

C\ Get header information

 

 

 

 

 

C\

 

 

 

 

 

 

 

C

16

SUBSTRECVR:X

QUSKR

 

.24/

 

C\

 

 

 

 

 

 

 

C\ Set Y to location of actual data associated with key

 

C\

 

 

 

 

 

 

 

C

X

ADD

16

Y

4ð

 

 

C\

 

 

 

 

 

 

3-26

System API Programming

V4R1

 

 

 

 

 

Page 77 Page 79
Page 78
Image 78
IBM Version 4 manual Outq
Page 77 Page 79