Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Issue with the length attribute filed to check data modified

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

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Thu Aug 04, 2011 10:53 pm    Post subject: Issue with the length attribute filed to check data modified
Reply with quote

Hi,

I have CICS sceen as below.

ACTN Acct-code D-CODE Eff-start date
----- ---------- --------- MM/DD/YYYY
----- ---------- --------- MM/DD/YYYY
----- ---------- --------- MM/DD/YYYY
----- ---------- --------- MM/DD/YYYY


the map is getting populated from the table.


I have logic coded in the program, if the user override the the EFF-START-DATE and ACTN=M, i am checking the length of Eff-start date is > 0, but even if i have not modied the date filed i am getting length of 10 bytes in length filed and hence the logic is not working.
Attributes of length field are UNP NOR TU

Could anybody please suggest me the way to handle this logic?

Thanks,
Amsar
Back to top
View user's profile Send private message

Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Thu Aug 04, 2011 10:59 pm    Post subject:
Reply with quote

are you moving low values to your output map area before populating the fields ?

somewhere in your logic , you must be setting the attribute to an FSET condition.

I would walk your transaction through CEDF debug and when stopped at send map command, look in working storage for actual hex' value of attribute related to each occurance of date fields
Back to top
View user's profile Send private message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Thu Aug 04, 2011 11:18 pm    Post subject: Reply to: Issue with the length attribute filed to check dat
Reply with quote

No i am replacing the low-values by spaces before sending the map.

Thnks....
Back to top
View user's profile Send private message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Thu Aug 04, 2011 11:22 pm    Post subject: Reply to: Issue with the length attribute filed to check dat
Reply with quote

Sorry... i misunderstood you question..

Yes.. First time only while before sending the map i am populating the output fields with LOW-VALUES.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7909
Location: Bellevue, IA

PostPosted: Thu Aug 04, 2011 11:41 pm    Post subject:
Reply with quote

Quote:
i am checking the length of Eff-start date is > 0
What is the precise code you are using for this? Use the Code tag when posting it to retain spacing and so forth.
Back to top
View user's profile Send private message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Fri Aug 05, 2011 12:12 am    Post subject: Reply to: Issue with the length attribute filed to check dat
Reply with quote

I am using below code:

Code:
IF (GXXX-BEGEFFDTL(CNT1) > 0)                         
   IF (GXXX-BEGEFFDTI (CNT1) = WS-NEXT-DATE)           
       CONTINUE                                       
   ELSE                                               
       ADD +1                   TO CA-MOD-ERR           
       MOVE DFHRED         TO GMXX-BEGEFFDTC (CNT1)
       MOVE -1                  TO GMXX-BEGEFFDTL (CNT1)
       MOVE '9683'            TO INFO-NEXT-KEY       
       PERFORM 7000-SCREEN-MSG THRU 7000-EXIT         
          UNTIL INFO-NEXT-KEY = SPACES                 
   END-IF                                             
END-IF.


GMB9-BEGEFFDT is the date field i am talking about.

Thnks...
Back to top
View user's profile Send private message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Fri Aug 05, 2011 12:14 am    Post subject:
Reply with quote

Quote:
GMB9-BEGEFFDT is the date field i am talking about.


Please read as.....GXXX-BEGEFFDT is the date field i am talking about.
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Fri Aug 05, 2011 1:28 pm    Post subject: Re: Issue with the length attribute filed to check data modi
Reply with quote

Maybe the modified data tag is set. This would cause every field to be flagged as if it has been modified by the user. MDT can be set by using the FSET paramater in the DFHMDF macro and using the FSET paramater in the EXEC CICS SEND command.

To be more independent from the map definition I propose to check the field by a combination of length attribute and real content.

For example:
Code:
IF (GXXX-BEGEFFDTL(CNT1) > 0) AND (GXXX-BEGEFFDTIL(CNT1) NOT = SPACES)
   IF (GXXX-BEGEFFDTI (CNT1) = WS-NEXT-DATE)           
       CONTINUE                                       
   ELSE                                               
       ADD +1                   TO CA-MOD-ERR           
       MOVE DFHRED              TO GMXX-BEGEFFDTC (CNT1)
       MOVE -1                  TO GMXX-BEGEFFDTL (CNT1)
       MOVE '9683'              TO INFO-NEXT-KEY       
       PERFORM 7000-SCREEN-MSG THRU 7000-EXIT         
          UNTIL INFO-NEXT-KEY = SPACES                 
   END-IF                                             
END-IF.

Hope this helps
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Tue Aug 09, 2011 5:34 am    Post subject:
Reply with quote

Problem could be as Stefan suggests.

Please post the DFHMSD statement for your map and the related
DFHMDF statement for the field you are having problems with.

AND post the exec cics send statement.


In addition, as a good coding practice, you should never move spaces to entire map area.

[/quote]
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Tue Aug 09, 2011 5:38 am    Post subject:
Reply with quote

I notice your coding example reflects indexing , are you generating map with the occurs clause or do you manually redefine the map in your
program?
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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts How to move a long alphanumeric data ... lind sh COBOL Programming 6 Mon Dec 05, 2016 7:51 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us