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

Strange MNOTE related to BMS using PICOUT $$,$$$,$$9.99


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
gregory oakes

New User


Joined: 21 Jan 2021
Posts: 8
Location: Canada

PostPosted: Thu Apr 01, 2021 12:54 am
Reply with quote

Hello,

In simple BMS screen setup, the two scenarios occur.
It seems to imply the COBOL floating dollar sign picture clause has a problem.
The BMS screen still seems to work, but the generate produces the error message shown below.
Is there a way to use COBOL floating dollar sign picture clause and not get these error messages.
Changing to COBOL floating zero suppression Z picture does not produce any error messages.
======================
#1 - With $ in PICOUT, these MNOTE messages appear.

1416 TOTAL DFHMDF POS=(9,31), X
LENGTH=13, X
COLOR=TURQUOISE, X
ATTRB=(NORM,PROT), X
PICOUT='$$,$$$,$$9.99'
** ASMA254I *** MNOTE *** 1510+ 0,SPECIFIED LENGTH IS 13 AND IS EQUAL TO CALCULATED OUTPUT LENGTH. 02-DFHBM
** ASMA254I *** MNOTE *** 1511+ 0,COBOL CURRENCY SIGN $ IS ASSUMED TO BE REPLACED BY A CURRENCY STX02-DFHBM
+ RING CONTAINING A SINGLE CHARACTER.
1524 ***********************************************************************
======================
#2 - Remove $ in PICOUT and MNOTE messages go away.

1416 TOTAL DFHMDF POS=(9,31), X
LENGTH=13, X
COLOR=TURQUOISE, X
ATTRB=(NORM,PROT), X
PICOUT='ZZ,ZZZ,ZZ9.99'
1522 ***********************************************************************
======================

Regards,
Greg
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
This topic is locked: you cannot edit posts or make replies. Related to using a file in comparison JCL & VSAM 8
No new posts Related to performing validation of f... DFSORT/ICETOOL 19
No new posts COBOL NOADVANCING strange results in ... COBOL Programming 4
No new posts Can records in IMS/DB be related usin... IMS DB/DC 2
No new posts Index related queries DB2 5
Search our Forums:

Back to Top