IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

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: 1097
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: 1097
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

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts Sort on different fields, removing du... SYNCSORT 8
No new posts Please help - SORT with SUM fields an... DFSORT/ICETOOL 6
No new posts Issue while reading a file in browse ... TSO/ISPF 7
No new posts Accumulating fields using syncsort SYNCSORT 6

Back to Top