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
 

 

"Display messages in the PL/I program"displaying i

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
willsdonaldabc

New User


Joined: 05 Oct 2010
Posts: 10
Location: chennai

PostPosted: Fri Mar 09, 2012 6:46 pm    Post subject: "Display messages in the PL/I program"displaying i
Reply with quote

Hi All,
I am new to the PL/I.
I have the issue with the displaying messages in the JESMSGLG from PL/I program .The PL/I program is haing the 'Display' statements in the program in Do...End .These display messages are displaying int the JESMSGLG .I dont want displaythem in the JESMSGLG.I have placed the SYSPRINT and SYSOUT with PS files .Even the messages are displaying in the JESMSGLG.
Could anybody please help that what have to do to display the messags in the PS file rather than JESMSGLG.
Please help me..
Thank you in Adavnce
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Fri Mar 09, 2012 7:25 pm    Post subject:
Reply with quote

Do not use DISPLAY - just write your message.
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 982
Location: Oostende, Belgium

PostPosted: Fri Mar 09, 2012 7:27 pm    Post subject:
Reply with quote

Used PUT (data/list/edit)
Back to top
View user's profile Send private message
willsdonaldabc

New User


Joined: 05 Oct 2010
Posts: 10
Location: chennai

PostPosted: Mon Mar 12, 2012 5:42 pm    Post subject:
Reply with quote

Thank you for your replies.
Could you provideme the ssample code it would be helpful.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Mar 12, 2012 5:51 pm    Post subject: Reply to: "Display messages in the PL/I program"di
Reply with quote

for what reason should we click on the manual links at the top of the page
click on the PL/I reference manual,
scroll where the PUT statement is described
and cut and paste the syntax for You ???

just because You do not feel like doing it Yourself icon_evil.gif

here is a link to a snippet where a put is used, unfortunately only the put skip flavor
http://www.ibmmainframes.com/viewtopic.php?t=57124&highlight=skip+list

ok a paperless office environment
but ...
a manual-less IT environment is just idiotic
Back to top
View user's profile Send private message
willsdonaldabc

New User


Joined: 05 Oct 2010
Posts: 10
Location: chennai

PostPosted: Tue Mar 13, 2012 11:47 am    Post subject:
Reply with quote

Apologies .But I tried to search in the googleand manual also .I got little confusion/not clear .That is the why i asked for sample code .Anyhow thanks for help.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Tue Mar 13, 2012 12:38 pm    Post subject:
Reply with quote

From my samples....

Edit mode
Code:
 /* Write - The PUT statement is used to write to a stream file. Its */
 /*       format is as follows:                                      */
 /*    PUT [option] [FILE(filename)] EDIT (data-list) (format-list); */
 /*                                                                  */
 /*         option - PAGE|SKIP(n)|LINE(n)                            */
 /*         filename - defaults to SYSPRINT                          */
 /*         data-list - list of variables, constants and expressions */
 /*         format_list - describes the external appearance of the   */
 /*                   data. format-list entries can be:              */
 /*                   A(w) - field is alphabetic                     */
 /*                   B(w) - field is a bit-string                   */
 /*                   F(w,d) - field is numeric. If d is omitted the */
 /*                          decimal point is not printed.           */
 /*                   E(w,d) - field is a floating point value.      */
 /*                   P'?'   : picture   - ? standard PIC format     */
 /*                   X(m) - specifies the number of input records to*/
 /*                          skip.                                   */
 /*                   COLUMN(n)|COL(n) - Establishes a specific      */
 /*                          record column as the leftmost position  */
 /*                          of the next input field.                */
 /*                                                                  */
 /*                     (w) - width in bytes including any signs     */
 /*                      d  - number of decimal places               */

 PUT SKIP EDIT(empname, rate, hours, wage)
              (COL(1), A(20),
               COL(25), F(6,2),
               COL(35), F(6,2),
               COL(45), F(8,2));


Data mode
Code:
 /* PUT option [FILE(filename)] DATA (data-list)                     */
 /*                                                                  */
 /* option      : PAGE|SKIP(n)|LINE(n)                               */
 /* FILE        : SYSPRINT is default                                */
 /* data-list   : the variables that are to be PUT                   */

 PUT SKIP(2) DATA(total_hours, total_pay);


LIST mode
Code:
 /* PUT LIST format:                                                 */
 /*   PUT [FILE (filename)] [format] LIST (data-list);               */
 /* Omission of FILE assumes SYSPRINT                          .     */
 /* The format options are SKIP[(n)]|LINE[(n)]|PAGE                  */

 PUT LIST (year, month, quantity, price);
Back to top
View user's profile Send private message
willsdonaldabc

New User


Joined: 05 Oct 2010
Posts: 10
Location: chennai

PostPosted: Wed Mar 14, 2012 12:24 pm    Post subject:
Reply with quote

Thankyou Nic ...
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Wed Mar 14, 2012 1:36 pm    Post subject:
Reply with quote

Note: You should not use stream i/o in production as it is a performance killer.
Back to top
View user's profile Send private message
willsdonaldabc

New User


Joined: 05 Oct 2010
Posts: 10
Location: chennai

PostPosted: Tue Mar 20, 2012 6:11 pm    Post subject:
Reply with quote

Ok Thank you for your suggestion icon_smile.gif
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm


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