This Program is used for printing (viewing) overlays on the iSeries.
Code
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.
