Thanks John I had not seen that. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of John McKown Sent: 13 July 2016 15:34 To: [email protected] Subject: Re: 64-bit XPLINK LE assembler program initialisation error U4093 reason X'218' (536)
Please excuse the top post. Have you seen this from https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ceeam00/ceeam109.htm : <quote> Any AMODE 64 assembler routine that is used within the scope of a Language Environment application must use 64-bit XPLINK save area conventions. Note: 1. Language Environment-conforming AMODE 64 assembler main routines are not supported. 2. Language Environment does not support the linkage stack. </quote> Observer note #1. Now, I know _zero_ about 64 bit LE, but the above says, to me, "you can't get there from here" (not even by adding a "t"). On Wed, Jul 13, 2016 at 9:12 AM, Steve Austin <[email protected]> wrote: > Explanation > Errors were detected during initialization. > Reason code > Explanation > > X'218' (536) > Language Environment initialization was requested for an AMODE 64 > application that does not contain a main. Specifically, the CELQMAIN > CSECT is not present in the program object or the CELQMAIN CSECT does > not point to the main routine (the address of the main is zero). One > possible cause is that the user attempted to invoke a DLL or fetchable > routine as a main. > > > I tried including CELQMAIN, but the error still occurred. Can an > assembler program contain a main? If so, how is it done? > > Thanks > > Steve > > > Program source; > MAIN CELQPRLG DSASIZE=240,FETCHABLE=NO,PSECT=MAIN#A > MAIN ALIAS c'main' > CELQCALL __le_condition_token_build,(c_1,c_2,format,severity, x > control,facility_ID,i_s_info,cond_token,fc),WORKREG=15 > c_1 dc h'3' > c_2 dc h'5796' > format dc h'1' > severity dc h'3' > control dc h'1' > facility_ID dc c'CEE' > i_s_info dc f'0' > cond_token dc xl16'0' > fc dc xl16'0' > CELQEPLG > END > > Assembly options; > > NODECK,OBJECT,NOTERM,LIST(133),XREF(FULL),OPTABLE(ZS6,NOLIST),FLAG(NOALIGN),ASA,GOFF,NORENT' > > Bind options; > MAP,RENT,DYNAM=DLL,CASE=MIXED,AMODE(64),RMODE(ANY) > > > > > -- > This e-mail message has been scanned and cleared by Google Message > Security and the UNICOM Global security systems. This message is for > the named person's use only. If you receive this message in error, > please delete it and notify the sender. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > -- "Pessimism is a admirable quality in an engineer. Pessimistic people check their work three times, because they're sure that something won't be right. Optimistic people check once, trust in Solis-de to keep the ship safe, then blow everyone up." "I think you're mistaking the word optimistic for inept." "They've got a similar ring to my ear." >From "Star Nomad" by Lindsay Buroker: Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN -- This e-mail message has been scanned and cleared by Google Message Security and the UNICOM Global security systems. This message is for the named person's use only. If you receive this message in error, please delete it and notify the sender. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
