Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
NEED TO REFORMAT BDAM FILE

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mariapie

New User


Joined: 03 Dec 2010
Posts: 3
Location: INDIA

PostPosted: Fri Dec 03, 2010 9:06 am    Post subject: NEED TO REFORMAT BDAM FILE
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Dec 03, 2010 9:54 am    Post subject:
Reply with quote

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
View user's profile Send private message
mariapie

New User


Joined: 03 Dec 2010
Posts: 3
Location: INDIA

PostPosted: Fri Dec 03, 2010 10:30 am    Post subject: layout like this
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Dec 03, 2010 10:48 am    Post subject:
Reply with quote

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
View user's profile Send private message
mariapie

New User


Joined: 03 Dec 2010
Posts: 3
Location: INDIA

PostPosted: Fri Dec 03, 2010 10:58 am    Post subject: REFERENCE OF FILE
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Dec 03, 2010 8:03 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Dec 04, 2010 3:25 am    Post subject:
Reply with quote

Hello,

Have you determined what the file contains and what this is used for (other than this sort exit)?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us