Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual Changing a User Space with an OPM RPG Program-Example, Rpg

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 41
Image 41

Manipulating a User Space without Pointers

Changing a User Space with an OPM RPG Program—Example

To change the user area of a user space with a call from an OPM specify the following:

H\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

H\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

H\

 

 

\

H\

PROGRAM:

CHANGUS

\

H\

 

 

\

H\

LANGUAGE:

RPG

\

H\

 

 

\

H\

DESCRIPTION: THIS PROGRAM WILL CHANGE THE CONTENTS OF

\

H\

 

INFORMATION IN THE USER AREA IN THE USER SPACE \

H\

 

(FIRST 64 BYTES).

\

H\

 

 

\

H\

APIs USED:

QUSCHGUS

\

H\

 

 

\

H\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

H\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

E

ARY

1

1

2ð

 

 

E

CHG

1

1

64

 

 

IUSRSPC

DS

 

 

 

 

 

I

 

 

 

1

1ð

USNAME

I

 

 

 

11

2ð

USLIB

IDS

I

 

B

1

4ðLENDTA

 

 

I

 

B

5

8ðSTRPOS

 

 

C\

 

 

 

 

 

\

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

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

C\

 

 

 

 

 

\

C\

OPERABLE CODE STARTS HERE

 

 

 

\

C\

 

 

 

 

 

\

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

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

C\

 

 

 

 

 

\

C\ MOVE THE USER SPACE AND LIBRARY NAME FROM ARY ARRAY INTO￿ THE

\

C\ USRSPC DATA STRUCTURE. ALSO, MOVE THE NEW USER DATA FROM

\

C\ CHG ARRAY INTO NEWVAL.

 

 

 

 

\

C\

 

 

 

 

 

\

C

MOVELARY,1

USRSPC

 

 

 

C

MOVELCHG,1

NEWVAL

64

 

 

C\

 

 

 

 

 

\

C

Z-ADD64

LENDTA

 

LEN OF USERAREA

C

Z-ADD1

STRPOS

 

STARTING POS

C

MOVE '1'

FORCE

1

FORCE PARM

 

C\

 

 

 

 

 

\

C\ CALL THE QUSCHGUS API WHICH WILL CHANGE THE USER AREA IN￿ THE

\

C\ USER SPACE.

 

 

 

 

 

\

C\

 

 

 

 

 

\

C

CALL 'QUSCHGUS'

 

 

 

 

 

C

PARM

USRSPC

 

 

 

C

PARM

STRPOS

 

 

 

C

PARM

LENDTA

 

 

 

C

PARM

NEWVAL

 

 

 

C

PARM

FORCE

 

 

 

C\

 

 

 

 

 

\

C\ IF MORE OF THE USER SPACE NEEDS TO BE CHANGED, THIS PROGRA￿M

\

C\ COULD BE UPDATED TO LOOP UNTIL THE END OF THE ARRAY WAS

\

C\ REACHED.

 

 

 

 

 

\

C\

 

 

 

 

 

\

C

SETON

 

 

LR

 

 

C

RETRN

 

 

 

 

 

\\ ARY TEMPSPACE QGPL \\ CHG

Big String padded with blanks

Chapter 2. Getting Started with2-21APIs

Page 40 Page 42
Page 41
Image 41
IBM Version 4 manual Changing a User Space with an OPM RPG Program-Example, Rpg
Page 40 Page 42