|
We write a simple CL program to act like a wrapper for the trigger
program containing the logic.
Just getting and passing along the required parameters:
0005.00 PGM PARM(&BUFR &BYNARY)
0006.00
0007.00 DCL VAR(&BUFR) TYPE(*CHAR) LEN(1001)
0008.00 DCL VAR(&BYNARY) TYPE(*CHAR) LEN(4)
0009.00
0010.00 CALL PGM(TTT) PARM(&BUFR &BYNARY)
0011.00
0012.00 ENDPGM
TTT is the "real" trigger program that performs the required logic.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.