Rufe aus deiner Anwendung bei Bedarf dieses CL:



PGM PARM(&PGMNAME &DSPNAME &DSPFMT)

DCL VAR(&SCREENDATA) TYPE(*CHAR) LEN(3564)
DCL VAR(&DSPNAME) TYPE(*CHAR) LEN(8)
DCL VAR(&PGMNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&DSPFMT) TYPE(*CHAR) LEN(10) DCLF FILE(SCR_SHOT) RCDFMT(SCRFMT)

OVRDSPF FILE(SCR_SHOT) TOFILE(SCR_SHOT1) LVLCHK(*NO)

CHGVAR VAR(&R1DATA1) VALUE(X'00021518730462')

SNDRCVF RCDFMT(SCRFMT)

CHGVAR VAR(&SCREENDATA) VALUE(&R1DATA1 *CAT &R1DATA2)

CALL PGM(SCR_SHOT) PARM(&PGMNAME &DSPNAME &DSPFMT &SCREENDATA)

ENDPGM
Es arbeitet mit diesem Bildschirm SCR_SHOT

A R SCRFMT
A OVERLAY CLRL(*NO)
A R1DATA1 1782 B 1 2
A R1DATA2 1782 B 1 2



Bau dir ein SCR_SHOT pgm das in &screendata den BS-Inhalt hat

Wir drucken so hardcopy's mit 'echten window-ramen' aus nem grünen Schirm

Gruß Robi