Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
FIELDS OVERLAPPING WITH MODE = IN OR INOUT.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India

PostPosted: Tue Aug 11, 2020 4:05 pm    Post subject: FIELDS OVERLAPPING WITH MODE = IN OR INOUT.
Reply with quote

in one of BMS Mapset, i am getting CC 0004 during assemble, Below is the BMS mapset and spool message

Code:
PCODE1   DFHMDF POS=(11,1),                                            X
               LENGTH=10,                                              X
               ATTRB=(NORM,UNPROT),                                    X
               COLOR=TURQUOISE,                                        X
               INITIAL='__________'                                     
         DFHMDF POS=(11,12),                                           X
               LENGTH=1,                                               X
               ATTRB=ASKIP                                             
QTY1     DFHMDF POS=(11,13),                                           X
               LENGTH=5,                                               X
               ATTRB=(NORM,NUM),                                       X
               COLOR=TURQUOISE,                                        X
               INITIAL='_____'                                         
         DFHMDF POS=(11,19),                                           X
               LENGTH=1,                                               X
               ATTRB=ASKIP                                             
DESC1    DFHMDF POS=(11,20),                                           X
               LENGTH=20,                                              X
               ATTRB=(NORM,PROT),                                      X
               COLOR=TURQUOISE     


Code:
QTY1     DFHMDF POS=(11,13),                               
               LENGTH=5,                                   
               ATTRB=(NORM,NUM),                           
               COLOR=TURQUOISE,                           
               INITIAL='_____'                             
     4,FIELDS OVERLAPPING WITH MODE = IN OR INOUT.         
         PUNCH '           02  QTY1L    COMP  PIC  S9(4). '
         PUNCH '           02  QTY1F    PICTURE X.'       
         PUNCH '           02  FILLER REDEFINES QTY1F.'   
         PUNCH '             03 QTY1A    PICTURE X.'       
         PUNCH '           02  FILLER   PICTURE X(2).'     
         PUNCH '           02  QTY1I  PIC X(5).'           
         DFHMDF POS=(11,19),                               
               LENGTH=1,                                   
               ATTRB=ASKIP                                 
DESC1    DFHMDF POS=(11,20),                               
               LENGTH=20,                                   
               ATTRB=(NORM,PROT),                           
               COLOR=TURQUOISE                             
     4,FIELDS OVERLAPPING WITH MODE = IN OR INOUT.   


please help.
Back to top
View user's profile Send private message

Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1088
Location: Dublin, Ireland

PostPosted: Tue Aug 11, 2020 6:49 pm    Post subject:
Reply with quote

You haven't allowed for the attribute bytes. The second field POS=(11,12), starts on row 11 in column 12 and is 2 bytes long if you count the attribute, so the third field defined as starting on row 11, column 13 is overlapping the last byte of the second field.

Garry.
Back to top
View user's profile Send private message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India

PostPosted: Tue Aug 11, 2020 8:20 pm    Post subject: FIELDS OVERLAPPING WITH MODE = IN OR INOUT. Read more: http
Reply with quote

thank you, that's why, bumped up the the filed position by 1 now it worked.
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1088
Location: Dublin, Ireland

PostPosted: Wed Aug 12, 2020 12:34 pm    Post subject:
Reply with quote

Thanks for letting us know it fixed your problem:)

Garry
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sort on different fields, removing du... MOHIT KUMAR GUPTA SYNCSORT 8 Thu Apr 16, 2020 5:54 pm
No new posts Please help - SORT with SUM fields an... clearskynot DFSORT/ICETOOL 6 Thu Apr 09, 2020 11:01 am
No new posts Issue while reading a file in browse ... sivasaras TSO/ISPF 7 Sun Mar 01, 2020 12:20 pm
No new posts Accumulating fields using syncsort Hemant L SYNCSORT 6 Fri Feb 07, 2020 2:55 am
No new posts Formatting bit fields IanWorthington DFSORT/ICETOOL 9 Thu Sep 19, 2019 6:14 pm

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