Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 Intval \ SET UP to Accept Exceptions ADD\ZEROS, List Entry from the Space, Qcpf

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 214
Image 214

 

\\

 

 

 

 

 

\\

 

 

 

 

ISPCNAM

DS

 

 

 

I

I

'SPCNAME

'

1

1ð SPC

I

I

'QTEMP

'

11

2ð LIB

\\ OTHER ASSORTED VARIABLES

IDS

I I

2ððð

 

 

B

1

4ðSIZ

 

I I

 

 

 

B

5

8ðSTART

 

I I

 

 

 

B

9

12ðLENDTA

 

I I

X'ðð'

 

 

13

13 INTVAL

 

\

 

 

 

 

 

 

 

\ SET UP TO ACCEPT EXCEPTIONS

 

 

 

 

C

 

Z-ADD\ZEROS

QUSBNB

 

 

\

 

 

 

 

 

 

 

\ 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 THE FIRST LIST ENTRY

 

 

 

 

C

QUSBPQ

ADD

1

START

 

 

 

C

 

Z-ADD56

LENDTA

 

 

C

 

CALL

'QUSRTVUS'

 

 

 

C

 

PARM

 

SPCNAM

 

 

C

 

PARM

 

START

 

 

 

C

 

PARM

 

LENDTA

 

 

C

 

PARM

 

QUSDD

 

 

 

C

 

PARM

 

QUSBN

 

 

 

\

 

 

 

 

 

 

 

\ DISPLAY THE JOB NAME

 

 

 

 

 

C

 

DSPLY

 

QUSDDB

>>> Correct job name

\

 

 

 

 

 

will now show as

\

 

 

 

 

 

'QCPF

'

9-8System API Programming V4R1

Page 213 Page 215
Page 214
Image 214
IBM Version 4 manual Intval \ SET UP to Accept Exceptions ADD\ZEROS, Create the Space to Hold the Data Call Quscrtus, Qcpf
Page 213 Page 215