I'm trying to pass a parm into a free format program and I have it
prototyped as follows:

DRigsChk pr extpgm('@RIGSCHK')
D InDate 8
DClm3024R pi
D InDate 8

However when I try to check the value of Indate I get a MCH3601

What the heck am I doing wrong here?

This thread ...


Return to Archive home page | Return to MIDRANGE.COM home page