File Transfer Exit Program

[Guest.Visitor]

Nothing to add, just wanted to &lt pre &gt the source, it was hurting my eyes. <pre> PGM PARM(&STATUS &STRU) DCL VAR(&STATUS) TYPE(*CHAR) LEN(1) DCL VAR(&STRU) TYPE(*CHAR) LEN(2000) DCL VAR(&ACCEPT) TYPE(*CHAR) LEN(1) VALUE('1') DCL VAR(&REJECT) TYPE(*CHAR) LEN(1) VALUE('0') DCL VAR(&USERID) TYPE(*CHAR) LEN(10) DCL VAR(&APPLID) TYPE(*CHAR) LEN(10) DCL VAR(&FUNCID) TYPE(*CHAR) LEN(10) DCL VAR(&TFOBJ) TYPE(*CHAR) LEN(10) /* FILE NAME */ DCL VAR(&TFLIB) TYPE(*CHAR) LEN(10) /* LIBRARY */ DCL VAR(&TFMBR) TYPE(*CHAR) LEN(10) /* MEMBER */ DCL VAR(&TFFMT) TYPE(*CHAR) LEN(10) /* FORMAT */ DCL VAR(&TYPE) TYPE(*CHAR) LEN(2) /* JOURNALTYPE */ CHGJOB LOG(4 0 *SECLVL) LOGCLPGM(*YES) CHGVAR VAR(&USERID) VALUE(%SST(&STRU 1 10)) CHGVAR VAR(&APPLID) VALUE(%SST(&STRU 11 10)) CHGVAR VAR(&FUNCID) VALUE(%SST(&STRU 21 10)) CHGVAR VAR(&TFOBJ) VALUE(%SST(&STRU 31 10)) /* GET FILE */ CHGVAR VAR(&TFLIB) VALUE(%SST(&STRU 41 10)) /* GET LIBRARY */ CHGVAR VAR(&TFMBR) VALUE(%SST(&STRU 51 10)) /* GET MEMBER */ CHGVAR VAR(&TFFMT) VALUE(%SST(&STRU 61 10)) /* GET FORMAT */ /* DEFUALT ACTION IS TO ACCEPT REQUEST */ CHGVAR VAR(&STATUS) VALUE(&ACCEPT) /* GET TEST VALUES FROM EXITPGMTST DATA ATEA */ CHGVAR VAR(&STATUS) VALUE(&ACCEPT) /* LOG CURRENT EXIT PGM INFO TO TRACE FILE */ CHGVAR VAR(&TYPE) VALUE('X1') SNDJRNE JRN(QAUDJRN) TYPE(&TYPE) ENTDTA(&STRU) EXIT: ENDPGM </pre>