TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

Chapter 6 303
Host Language Access
RPG
C MOVELOPTION DATE 6
C*--------------------------------------------------------------
C* Do unconditional data item lock on DATE.
C*
C DATE LOCK SALES 21
C 21 EXSR GETERR
C LR GOTO END1
C*--------------------------------------------------------------
C* Loop on CHAIN operation to get all entries in chain. On
C* first occurrence of CHAIN for a unique value of DATE, RPG
C* calls DBFIND, followed by DBGET. On subsequent uses of
C* CHAIN with the same value for DATE, only DBGET is called.
C*
C SETOF 202122
C LOOP1 TAG
C DATE CHAINSALES 2122
C*--------------------------------------------------------------
C* No chain head found.
C*
C 21 EXCPT CLEAR
C 21 EXCPT NOHEAD
C 21 READ TERMIN H0
C 21 GOTO SKIP
C*--------------------------------------------------------------
C* End-of-chain found.
C*
C 22 EXCPT EOC
C 22 READ TERMIN H0
C 22 GOTO SKIP
C*--------------------------------------------------------------
C* Any other error.
C*
C STAT,1 IFGT 0
C EXSR GETERR
C LR GOTO END1
C END
C*--------------------------------------------------------------
C* Print headings and data record.
C*
C N20 EXCPT CLEAR
C N20 EXCPT SALHDR
C N20 EXCPT LINHDR
C N20 SETON 20
C EXCPT SALREC
C*--------------------------------------------------------------
C* Loop back to do another CHAIN operation (DBGET).
C*
C GOTO LOOP1
C SKIP TAG
C*--------------------------------------------------------------
C* Unlock the data item.
C*
C DATE UNLCKSALES 24
C N24 EXSR GETERR
C*
C END1 ENDSR