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

Data for newly added fields not displayed on IMS screen


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
wpklee2000

New User


Joined: 09 Jul 2021
Posts: 3
Location: Canada

PostPosted: Fri Jul 09, 2021 4:02 am
Reply with quote

I've modified an MFS update screen to add a new field to the bottom of the screen and made all corresponding program changes. Upon entry of data into the fields, the data were saved to the database with no issue. However, when I return to this screen again, the data for the new field was retrieved from the database, but somehow not displayed on the screen. During debugging, I managed to see the data in the format output area prior to calling CBLTDLI to insert the message to the IO PCB, yet the data magically hide itself on the screen. In other words, the screen and programs work fine on the input side, but not quite on the output side.

I've checked anything that I can think of but to no avail. I'm puzzled and at a loss. Any help or suggestion would be much appreciated.
Back to top
View user's profile Send private message
wpklee2000

New User


Joined: 09 Jul 2021
Posts: 3
Location: Canada

PostPosted: Fri Jul 09, 2021 6:52 pm
Reply with quote

Sorry about that. I didn't read the posting rules and didn't realize the 2 forums are affiliated. When I first signed up for ibmmainframes, I waited for the activation email for almost an hour before realizing that it got dropped to the spam box. Meanwhile I found ibmmainframeforum and got account activated immediately, and posted my question there first. I was desperate and posted the question again on this site. What's the remedy? Do you want me to drop the question from either one?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10801
Location: italy

PostPosted: Fri Jul 09, 2021 7:17 pm
Reply with quote

continue here, the post on the other forum has been deleted
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1201

PostPosted: Fri Jul 09, 2021 9:00 pm
Reply with quote

wpklee2000 wrote:
Sorry about that. I didn't read the posting rules and didn't realize the 2 forums are affiliated. When I first signed up for ibmmainframes, I waited for the activation email for almost an hour before realizing that it got dropped to the spam box. Meanwhile I found ibmmainframeforum and got account activated immediately, and posted my question there first. I was desperate and posted the question again on this site. What's the remedy? Do you want me to drop the question from either one?

I recommend you to read these rules, and to update your post accordingly. Mainly: add all the required information with samples of code and data under question, for others to be able to understand your issue better, without trying to guess all possible problems…
Back to top
View user's profile Send private message
wpklee2000

New User


Joined: 09 Jul 2021
Posts: 3
Location: Canada

PostPosted: Fri Jul 09, 2021 9:35 pm
Reply with quote

These are my changes for MFS:
1.
Code:
 Input Message
MFLD  L19C17,LTH=54
MFLD  L20C17,LTH=54
MFLD  L21C17,LTH=54

2. Output Message
Code:
MFLD  L19C17M,LTH=56,ATTR=YES
MFLD  L20C17M,LTH=56,ATTR=YES
MFLD  L21C17M,LTH=56,ATTR=YES

3. Device Description
Code:
*------------- LINE 19 -----------------------------------------------
*
         DFLD  'ZOOM LINK  :',                                         C
               POS=(19,03),ATTR=(NUM,PROT),LTH=12
L19C17   DFLD  POS=(19,17),ATTR=(MOD),LTH=54
*
*------------- LINE 20 -----------------------------------------------
*
         DFLD  '           :',                                         C
               POS=(20,03),ATTR=(NUM,PROT),LTH=12
L20C17   DFLD  POS=(20,17),ATTR=(MOD),LTH=54
*
*------------- LINE 21 -----------------------------------------------
*
         DFLD  '           :',                                         C
               POS=(21,03),ATTR=(NUM,PROT),LTH=12
L21C17   DFLD  POS=(21,17),ATTR=(MOD),LTH=54
*
*------------- LINE 22 -----------------------------------------------
*

In my MPP program, I changed the message length from 659 to 821 (add 3x54)
Code:
*    05  MSG-HA-LENGTH               PIC S9(4) COMP VALUE +659.
TO
     05  MSG-HA-LENGTH               PIC S9(4) COMP VALUE +821.


I've followed these steps a few times in the past and it worked. This time it works for input but not for output.
Code'd
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2789
Location: NYC,USA

PostPosted: Fri Jul 09, 2021 11:30 pm
Reply with quote

Please use code tags. It helps to understand better.
Back to top
View user's profile Send private message
Gary Jacek

New User


Joined: 17 Dec 2007
Posts: 61
Location: Victoria, BC, Canada

PostPosted: Fri Oct 01, 2021 12:32 am
Reply with quote

Are you sure your MFS updates are active?

Did you generate your MFS modules into a TFORMAT dataset?
If yes, did you issue command /TEST MFS before doing your test?

If on the other hand, you have some process to move your generated MFS modules into a non-TFORMAT dataset, command /DIS MODIFY ALL will show you the active and inactive FORMAT concatenations.

Browse the active concatenation datasets in the order presented and examine the modules produced by your MFSGEN. Have they been updated?

In the past I used a program called MFSLIST to show the assembly date of MFS modules. If memory serves, this program is available from the CBT "tape" at Use [URL] BBCode for External Links
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Converting unpacked fields to pack us... SYNCSORT 4
No new posts Adding a header when change data DFSORT/ICETOOL 6
No new posts Selective extract of multi-record-typ... SYNCSORT 4
No new posts Expected data is not coming up on Fir... CICS 2
No new posts COBOL Table data to a flat file with ... COBOL Programming 9
Search our Forums:

Back to Top