开云体育

I don't need an answer to the return code anymore, as I
found out that I already had code to do the equivalent
of a WTO and was able to use that to get func1 to print
"start", call func2 which says "middle" and then returns,
and then func1 prints "end" so I know it is working.

And I can punch the phase and all 3 strings are embedded in it.

However, using the below JCL (or similar) I am unable to
punch the object code. I do get something:

000000? 40D7C8C1 E2C540C6 E4D5C3F1 6BE24EE7? ?PHASE FUNC1,S+X
000010? 7DF0F0F0 F0F0F07D 40404040 40404040? '000000'? ? ? ?
000020? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000030? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000040? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000050? 02C5E2C4 40404040 40400010 40400001? .ESD? ? ? ..? ..
000060? C6E4D5C3 F1404040 00400078 40000058? FUNC1? ?. .. ...
000070? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000080? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000090? 40404040 40404040 40404040 F0F0F0F1? ? ? ? ? ? ? 0001
0000A0? 02E3E7E3 40400078 40400038 40400001? .TXT? ..? ..? ..
0000B0? 00000050 615C4040 40404040 40404040? ...&/*? ? ? ? ?
0000C0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0000D0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0000E0? 40404040 40404040 40404040 F0F0F0F2? ? ? ? ? ? ? 0002
0000F0? 02E3E7E3 404000B0 40400020 40400001? .TXT? ..? ..? ..
000100? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000110? 40404040 40404040 40404040 00000000? ? ? ? ? ? ? ....
000120? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000130? 40404040 40404040 40404040 F0F0F0F3? ? ? ? ? ? ? 0003
000140? 02C5D5C4 40400078 40404040 40400001? .END? ..? ? ? ..
000150? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000160? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000170? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000180? 40404040 40404040 40404040 F0F0F0F4? ? ? ? ? ? ? 0004
000190? 615C4040 40404040 40404040 40404040? /*? ? ? ? ? ? ?
0001A0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001B0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001C0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001D0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?



But it doesn't have my actual code and start/end messages
in it. Any idea what is wrong with this JCL?

Thanks. Paul.



* $$ JOB JNM=VSEJOB
* $$ LST LST=SYSLST,CLASS=A
// JOB VSEJOB
*
*
*
* Standard assignments for C programs
*
// ASSGN SYS000,SYSLNK
// ASSGN SYS005,SYSLST
// ASSGN SYS007,SYSPCH
// OPTION DUMP
*
*
*
*
*
*
* Now assemble the main routine
*
// OPTION CATAL
?PHASE PDPTEST,S+80
// EXEC ASSEMBLY
undivert(func1.asm)dnl
/*
*
*
*
// EXEC ASSEMBLY
undivert(func2.asm)dnl
/*
*
* Now link the whole app
*
// EXEC LNKEDT
*
*
*
* Now run the app
*
// EXEC PDPTEST,SIZE=AUTO,PARM='PaulEdwards two Three'
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
?PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func1)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
?INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
?PUNCH FUNC2
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func2)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
?INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
* Now punch the phases
* You can choose func1, func2 or pdptest or a combination
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,10000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC CSERV
?PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
* And put it to tape
*
// DLBL SDI1,'PDPPUNCH.DAT'
// TLBL MTO1,'HERC01.MFTOPC',0
// ASSGN SYS011,TAPE,VOL=MFTOPC
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:mto1'
*
*
*
*
*
/&
* $$ EOJ

On Sat, Sep? 7, 2024 at 08:44 PM, Joe Monk wrote:

> So setup all your logicals at the beginning of the job, and only change
> when necessary. All logicals should ALWAYS be assigned with // ASSGN, NEVER
> with ASSGN in a JOB.

I got an error when I tried adding // to my ASSGNs, but I
have since managed to figure out how to dump object
code, one at a time, via separate JCL below.

So now hopefully the pdld author will be able to support
VS(E) as a target. To be combined with as370 as the
assembler, and gcc370 as the C compiler. So that executables
suitable for running on DOS/VS as well as z/VSE and VSEn
can be built on Windows.

BFN. Paul.



* $$ JOB JNM=VSEJOB
* $$ LST LST=SYSLST,CLASS=A
// JOB VSEJOB
*
*
*
* Standard assignments for C programs
*
// ASSGN SYS000,SYSLNK
// ASSGN SYS005,SYSLST
// ASSGN SYS007,SYSPCH
// OPTION DUMP
*
*
*
*
*
*
* Now assemble the main routine
*
// DLBL IJSYSPH,'FUNC2.OBJ',0,SD
// EXTENT SYSPCH,,,,12000,500 SPACE-OBJ
ASSGN SYSPCH,SYS000
// OPTION DECK,NOEDECK
// EXEC ASSEMBLY
undivert(func2.asm)dnl
/*
CLOSE SYSPCH,PUNCH
*
*
*
*
// DLBL SDI1,'FUNC2.OBJ'
// TLBL MTO1,'HERC01.MFTOPC',0
// ASSGN SYS011,TAPE,VOL=MFTOPC
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:mto1'
*
*
*
/&
* $$ EOJ