IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

FIELDS OVERLAPPING WITH MODE = IN OR INOUT.


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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: 1193
Location: Dublin, Ireland

PostPosted: Tue Aug 11, 2020 6:49 pm
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
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: 1193
Location: Dublin, Ireland

PostPosted: Wed Aug 12, 2020 12:34 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Calling Java method from batch COBOL ... COBOL Programming 5
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts Difference when accessing dataset in ... JCL & VSAM 7
No new posts Concatenate 2 fields (usage national)... COBOL Programming 2
No new posts Cobol COMP-2 fields getting scrambled... Java & MQSeries 6
Search our Forums:

Back to Top