lost mvs mod during upgrade

[yarnseeker]

We just upgraded our operating system and we have LOST one of our mods. We no longer seem to have the source.

The mod used to print the step cpu in the job log intead of the **** we are now getting.

-JOBNAME STEPNAME PROCSTEP RC EXCP CONN CPU
-S120108B VTTAB 00 256 352 ******
-S120108B FMDEL 00 158 163 ******
-S120108B FMDEF 00 6 2 ******

does anybody know IF this is a mod that might be on the CBT tapes?

[Steve Myers]

This type of change (including the lines you've put into your post) is usually put in the IEFACTRT exit. From the looks of what you put into your post, I'd suggest the problem isn't a lost change, but a bug in your code, though that's just a guess.

Good luck. Coding IEFACTRT can be very tricky, though I think if all its doing is writing what you put in your post, it should not be a difficult fix. If you're really lucky it might just be a reassembly.

[yarnseeker]

Thanks you! That IEFACTRT looks like what I needed to find more info.

I found that there is something on cbt #88 but you are probably right. It probably just needs to be reassembled or something. If not at least we have a direction to go in and some chance at not completely having to reinvent the wheel

[Steve Myers]

Your IEFACTRT is probably using the type 30 SMF record. A recent z/OS release - I think it was 1.11, but don't hold me to it - changed the format of the SMF 30 record, and there's a good chance that format change may be why your exit broke.

[taltyman]

You are welcome to our source however you would have to modify it to fit your needs. Here's a sample.

DDNAME=SORTWK01 UNIT=5346 TYPE=DASD EXCP= 2 MAXBLK=
DDNAME=SORTWK02 UNIT=674D TYPE=DASD EXCP= 2 MAXBLK=
DDNAME=SORTWK03 UNIT=6B90 TYPE=DASD EXCP= 2 MAXBLK=
DDNAME=SORTWK04 UNIT=6525 TYPE=DASD EXCP= 2 MAXBLK=
DDNAME=SORTWK05 UNIT=524B TYPE=DASD EXCP= 2 MAXBLK=
DDNAME=DFHPRINT UNIT=5324 TYPE=DASD EXCP= 122 MAXBLK=13300
DDNAME=SYSPRINT UNIT= TYPE= EXCP= MAXBLK=
DDNAME=SYSUDUMP UNIT= TYPE= EXCP= MAXBLK=
DDNAME=SYSABEND UNIT= TYPE= EXCP= MAXBLK=
DDNAME=SYSOUT UNIT= TYPE= EXCP= MAXBLK=
DDNAME=SYSIN UNIT= TYPE= EXCP= MAXBLK=
------------------------------------------------------------------------------------------------
|JOBNAME=AA04STAT |START TIME=15.51.03 |JOB CPU=00.00.01 |4K PAGEIN=00000000|
|STEPNME=STEP1 |END TIME=15.51.06 |STEP CPU=00.00.01 |4K PAGOUT=00000000|
|PGMNAME=DFHSTUP |ELPSE TIME=00.00.02 |STORAGE =0002504K |# SWAPOUT=00000000|

[taltyman]

Forgot to mention we are z/OS 1.9

[yarnseeker]

I'd love to get the code.

Our data center zapped the load module and it works but I do NOT like load modules for which we have no source.

[taltyman]

Sent you a PM.

[steeleweed]

Somewhere out there - IBM or CBT - there's a Delink program which turns a LoadMod into an Object Deck. Then there's a Disassemble program which turns the deck into Assembler source.

You would want to go over the output until you understood it in detail and add comments/documentation. This process could be easy or a nightmare, depending on the complexity of the code and how good the programmer was. I've done it (decades ago). It ain't fun, but it works.

Good luck.

[nevil]

The format of the output looks like an old copy of the sample delivered by IBM. The new source can be found in SYS1.SAMPLIB(IEEACTRT)