View previous topic :: View next topic
|
Author |
Message |
mariapie
New User
Joined: 03 Dec 2010 Posts: 3 Location: INDIA
|
|
|
|
Hi,
We have a requirement where we need to reformat a BDAM file which was created a decade ago. we dont have any program of creation of the file. but we have the corresponding book. since we are new to BDAM we dont understand how to reformat the file in accordance with the change in copybook. can anyone help me in understanding the structure of a BDAM copybook.
Maria |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
Quote: |
can anyone help me in understanding the structure of a BDAM copybook |
You need to post this copybook. There are many ways to utilize bdam . . . |
|
Back to top |
|
|
mariapie
New User
Joined: 03 Dec 2010 Posts: 3 Location: INDIA
|
|
|
|
Code: |
*
* DESCRIPTION 3330 3340 3350 3375 3380
* -------------------- ------ ------ ------ ------ ------
* BLOCK SIZE......2480
* DATA REC SIZE...VARIA B
* RECS - BLOCK....N/A
* BLOCKS-TRACK......... 5 3 7 12 16
* BLOCKS-CYLINDER...... 95 36 210 144 240
*
SPACE
JMKBLOCK DS 2480C
JMKBLKSZ EQU *-JMKBLOC K
EJECT
* #RE CS CAPACITY
* --- -- -----------------
JMKSYIDX EQU 1 1
JMKSYOPR EQU 1 1
JMKSYEXC EQU 1 1
JMKSYSEC EQU 1 1
JMKSYDS1 EQU 1 1
JMKSYDS2 EQU 1 1
JMKSYOPS EQU 44 44
JMK#SYRC EQU JMKSYOPS+
*
*
JMKBKSTC EQU 1
JMKBKOPR EQU 20
*CFCOOPR EQU 10
JMKCOEXC EQU 1
JMKCOSEC EQU 1
JMKCORTC EQU 10
JMKCOOPS EQU 880
*CFCOOPS EQU 440
JMKCORTS EQU 1
JMKCOEXS EQU 75
JMK#CORC EQU 4+JMKCORT C+JMKCOOPS+JMKCORTS+JMKB KE XS
EJECT
*
JMKR#SIX EQU 1
JMKR#SOP EQU 2
JMKR#SEX EQU 3
JMKR#SSC EQU 4
JMKR#SD1 EQU 5
JMKR#SD2 EQU 6
JMKR#SOS EQU 7
*
*
JMKR#COS EQU 0
JMKR#BOP EQU JMKR#COS+ JMKCOSTC
JMKR#BEX EQU JMKR#BOP+ JMKCOOPR
JMKR#BSC EQU JMKR#BEX+ JMKCOEXC
JMKR#BRA EQU JMKR#BSC+ JMKCOSEC
JMKR#BOS EQU JMKR#BRA+ JMKCORTC
JMKR#BRS EQU JMKR#BOS+ JMKCOOPS
JMKR#BES EQU JMKR#BRS+ JMKCORTS
EJECT
*
ORG JMKBLOCK
JMKCDTLM DS PL3
DS XL1
JMKCNXDA DS XL4
JMKCALOC DS XL4
*
*
JMKXCO# DS PL2
JMKXDA DS XL4
JMKXSZ EQU *-JMKXCO
DS 99XL6
JMKX#ET EQU 100
SPACE
*
*
SPACE
JMCYONUS DS C
JMCYALLI DS C
JMCYSTOP DS C
JMCYSPIS DS C
JMCYEXCP DS C
JMCYGENI DS C
JMCYSOPR DS C
JMCYSECF DS C
JMCYSECE DS C
JMCYDSTP DS C
JMCYDSSC DS C
JMCYDSUS DS C
JMCYAPL DS 5X
*
* |
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
And what is the change to be made? When posting code, data, jcl, etc the Code tag should be used to preserve alignment and improve readability. Your "copybook" has been Code'd
How is the file referenced (programs, utilities, etc.)? |
|
Back to top |
|
|
mariapie
New User
Joined: 03 Dec 2010 Posts: 3 Location: INDIA
|
|
|
|
It is referenced as an input file in an sort step. and it has a control card which has an program which is actually super linked.
MODS E15=(JMCLKLOD,30000,STEPLIB,N),
INPFIL EXIT
OUTFIL EXIT
The actual change needed is to a increased a field length for eg.
JMKXCO# DS PL2 to PL3 |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
You need to look at the module executed by the E15 exit. It will show how the file is really used. There are probably other processes that access this file as well. . .
It will help you to hex dump a few records and look at the actual content of the records. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Have you determined what the file contains and what this is used for (other than this sort exit)? |
|
Back to top |
|
|
|