Try dataname: XX PROGNAME PIC X(08) VALUE 'progname'..
XX can be 77 or a regular level number. Then, CALL PROGNAME parms... On Fri, Apr 7, 2023, 5:25 PM Frank Swarbrick <[email protected]> wrote: > Literal. The compiler flags it as not allowed. > ________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf > of Charles Hardee <[email protected]> > Sent: Friday, April 7, 2023 4:11 PM > To: [email protected] <[email protected]> > Subject: Re: Cobol calling module with non alphanumeric no longer > allowed??? > > Are you doing a call literal or call dataname? > > On Friday, April 7, 2023, Frank Swarbrick <[email protected]> > wrote: > > > I've tried calling modules (that exist!) with both '@' and '#' signs in > > them and Enterprise COBOL 5+ does not allow this. COBOL 4 allowed this. > > Is there any good reason why this is the case? > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
