|
Is it possible to pass the PSDS as a parm? If so can anyone tell me how I would map out the *PROC, *STATUS, *ROUTINE, *PARMS subfields? I was hoping I could do something like this D MyPSDS SDS (pretend I have all of the subfields defined) D ErrProto PR 10I 0 D ErrDS Like(MYPSDS) D RC S 10I 0 /Free RC = ErrProto(MYPSDS); /End-Free P ErrProto B D ErrProto PI D ErrDS 353A D ProcDS * Inz(%addr(ErrDS)) D ProcDS_1 DS Based(ProcDS) This is about as far as I got when I realized I don't know if I can map out the fields I listed above. Any ideas?
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 copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.