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

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


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
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
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: 2455
Location: Hampshire, UK

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

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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Mar 09, 2012 7:27 pm
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Mar 12, 2012 5:51 pm
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
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
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: 2455
Location: Hampshire, UK

PostPosted: Tue Mar 13, 2012 12:38 pm
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
Reply with quote

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

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Mar 14, 2012 1:36 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
No new posts IBM OnDemand Folders displaying to al... IBM Tools 6
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
Search our Forums:

Back to Top