FTEST IF E K DISK RPG Program: FTESTOVL O E 83 PRINTER C READ FLIST LR C *INLR DOWEQ'0' C MOVE *BLANK OVLNAM C MOVELOVLAY$ OVLNAM C MOVE '1' *IN83 C WRITENXTPG1 C WRITEOVERLAY C READ FLIST LR C ENDDO Print File: A R NXTPG1 A DRAWER1 A ENDPAG A R OVERLAY A DRAWER1 A OVERLAY(&OVLNAM 0.0 0.0) A OVLNAM 8A P Physical file where overlay name is entered: A R FLIST A OVLAY$ 8A
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
This was first published in February 2003