HP RPG/iX Utilities Reference Manual (30318-90006)

5- 286
| I 36 71 ADDR |
| I 72 800ZIP |
| I 81 90 PHONE# |
| |
| C* CLEAN UP |
| 4 C 01 SETOF 808182 |
| C 01 SETOF 656070 |
| C* DETERMINE ACTION REQUESTED |
| 5 C KA SETON 80 ADD RECORD |
| C KB SETON 81 DEL RECORD |
| C KC SETON 82 UPD RECORD |
| C KG SETON LR END JOB |
| C KG GOTO EOF |
| 6 C N01 GOTO EOF |
| C* READ RECORD FROM CUSTOMER MASTER FILE USING SSN AS A KEY |
| C SETOF 42 |
| C SSN CHAINCUSTMAST 42 NO HIT |
___________________________________________________________________________________
Figure 5-1. RPG Program (continued)
___________________________________________________________________________________
| |
| 1 2 3 4 5 6 7 |
| 678901234567890123456789012345678901234567890123456789012345678901234|
| |
| C* SET INDICATORS FOR ERRORS |
| 7 C 80N42 SETON 6070 |
| C N80 42 SETON 6065 |
| C EOF TAG |
| 8 OWORKSTN D 1P |
| O OR 02 |
| O OR 01 60 |
| O OR 01 81 |
| O K6 "FORM21" |
| O 70 6 "0001 1" |
| O 65 6 "0002 1" |
| O** |
| 9 O D 01 80 42 |
| O OR 01 82N42 |
| O K6 "FORM22" |
| O SSN 9 |
| O NAME 35 |
| O ADDR 71 |
| O ZIP 80 |
| O PHONE# 90 |