Attila, I agree with you that there is almost no chance of a load module generated from this object deck operating correctly.
z/OS and VSE use SVCs differently. For performing I/O, DCBs and DTFs are radically different. The VSE COBOL compiler may be calling library routines that don't exist in the z/OS environment. If this critical software and you have the big bucks, you could license DUO: http://www.lookupmainframesoftware.com/soft_detail/dispsoft/546 if it is still marketed! The above link is 9 years old. On Thu, Oct 7, 2021 at 3:55 AM Attila Fogarasi <[email protected]> wrote: > MVS format object decks always have x'02' in column 1 and not "W", so that > would be a problem. You would also need to link with an appropriate Cobol > runtime library, and those would have been EOL circa 30 years ago. Worst > case you might have to disassemble and recreate this module, eliminating > the VSE dependencies (some are usually unavoidable). > > On Thu, Oct 7, 2021 at 6:22 PM Gadi Ben-Avi <[email protected]> wrote: > > > Hi, > > I was asked to attempt to link a object deck from VSE in z/OS. > > The program is a COBOL2 program, but the source has been lost. > > > > The first few lines of the object deck are: > > W PHASE JKHIVX52,S+X'000000' > > W MODE AMODE(31),RMODE(ANY) > > W.ESD .. ..JKHIVX52.§.©..÷0 > > > > After that there are many (A little over 12,000) lines that start with > > W.TXT > > Next there are lines that start with W.RLD and a final like that starts > > with W.END. > > > > The JCL I used was > > //LKED EXEC PGM=IEWL, > > // PARM='LIST,XREF,NOLET,MAP', > > // REGION=2M > > //SYSLIN DD DSN=N623.PMKA.KPMAT.JKHIVX52,DISP=SHR > > //SYSLMOD DD DSNAME=V110GAD.LOAD(JKHIVX52),DISP=SHR > > //SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1)) > > //SYSPRINT DD SYSOUT=* > > //SYSIN DD * > > INCLUDE SYSLIN(JKHIVX52) > > NAME JKHIVX52(R) > > > > I am doing something wrong? > > Can this deck be linked into a usable z/OS load module? > > > > Thanks > > > > Gadi > > > > > > > > ---------------------------------------------------------------------- > > 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
