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 <frank.swarbr...@outlook.com> wrote: > Literal. The compiler flags it as not allowed. > ________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf > of Charles Hardee <charleshhar...@gmail.com> > Sent: Friday, April 7, 2023 4:11 PM > To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> > 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 <frank.swarbr...@outlook.com> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN