Hello,
I've got a program (prog1) with 10 input parms, all 1a, defined as a *entry plist.
Calling prog1 from elsewhere; is there a way of bunching the parms together (like in a ds) and calling it with the DS, rather than all 10 individual parms? Without changing prog1 (or at least, changing it in a way that will affect the other programs that call it).
Example;
(for some annoying reason; pasting into the forum's topic box removes excess whitespace making the formatting look stupid)
I've got a program (prog1) with 10 input parms, all 1a, defined as a *entry plist.
Calling prog1 from elsewhere; is there a way of bunching the parms together (like in a ds) and calling it with the DS, rather than all 10 individual parms? Without changing prog1 (or at least, changing it in a way that will affect the other programs that call it).
Example;
Code:
(Prog1); C *ENTRY PLIST C PARM FLAG01 1 C PARM FLAG02 1 C PARM FLAG03 1 C PARM FLAG04 1 C PARM FLAG05 1 C PARM FLAG06 1 C PARM FLAG07 1 C PARM FLAG08 1 C PARM FLAG09 1 C PARM FLAG10 1 (Calling from elsewhere); d prog1 pr extpgm('prog1') d flag1 1a d flag2 1a d flag3 1a d flag4 1a d flag5 1a d flag6 1a d flag7 1a d flag8 1a d flag9 1a d flag10 1a d flag1 s 1a d flag2 s 1a d flag3 s 1a d flag4 s 1a d flag5 s 1a d flag6 s 1a d flag7 s 1a d flag8 s 1a d flag9 s 1a d flag10 s 1a /free prog1(flag1: flag2: flag3: flag4: flag5: flag6: flag7: flag8: flag9: flag10); *inlr = *on; return; /end-free (Example of what I'm trying to achieve (this doesn't work); d prog1 pr extpgm('prog1') d prog1Parms likeds(prog1Parms) d prog1Parms ds d flag1 1a d flag2 1a d flag3 1a d flag4 1a d flag5 1a d flag6 1a d flag7 1a d flag8 1a d flag9 1a d flag10 1a /free prog1(prog1Parms); *inlr = *on; return; /end-free
Comment