An exception is through with a message of "Failed initial conditions".

Here is my source code:

**free


ctl-opt nomain option(*srcstmt);


/copy vdm001r_h

/copy vdm001dr_h


dcl-proc viewMenu export;

dcl-ds output likeds(output_t);


dou output.exitRequested;

displayMenu(output);

if not output.exitRequested;

select;

when output.optionSelected = '1';

endsl;

endif;

enddo;

end-proc;



I am trying to extract the '1' to a constant; I will note this is an
iproject. The source is on my machine and remote reconciled to the
server. I am also on a mac running rdi 9.6.0.8.

Does anyone else have an issue with this?

Thanks

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 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.