MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

PUT LIST (PLI)

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Wed Sep 15, 2004 1:23 am    Post subject: PUT LIST (PLI) Reply with quote
Let me admit that am PL/1 illiterate and am trying my hands with a simple program that tries to print my name.

The PL/1 reference manaul says that all PUT LIST(' ') statements go to SYSPRINT which need not be implicitly defined in the program.

However none of my display statements are being shown in SYSPRINT.
Are there any special compiler options that i need to add to get my PUT LIST working ?

Cheers
Brian
Back to top
View user's profile Send private message
bauer
Intermediate


Joined: 10 Oct 2003
Posts: 315
Topics: 49
Location: Germany
PostPosted: Wed Sep 15, 2004 1:38 am    Post subject: Reply with quote
Hi Brian,

no. No compiler settings are necessary.

Try this:

PUT SKIP EDIT ('Hallo World')(A);

bauer
Back to top
View user's profile Send private message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Wed Sep 15, 2004 4:37 am    Post subject: Reply with quote
Naah...the job seems to be adamant. I do not see any output. I am using IEL0AA to compile. I have also tried IEL1AA but no avail.

Cheers
Brian
Back to top
View user's profile Send private message
bauer
Intermediate


Joined: 10 Oct 2003
Posts: 315
Topics: 49
Location: Germany
PostPosted: Wed Sep 15, 2004 5:05 am    Post subject: Reply with quote
Check definition of SYSPRINT !
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Sep 15, 2004 6:02 am    Post subject: Reply with quote
Brian,

Try this

Code:

PUT SKIP LIST( 'TEST DISPLAY');



Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Unspec
Beginner


Joined: 02 Dec 2002
Posts: 6
Topics: 1
Location: Nottingham
PostPosted: Wed Sep 15, 2004 6:53 am    Post subject: Reply with quote
Brian,

You don't need to explicitly declare, open, and close SYSPRINT, though it's bad programming practice not to. Are you sure that you're executing the part of the program with the put list statements? Have you tried sticking a put list right at the top of the program?
Back to top
View user's profile Send private message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Wed Sep 15, 2004 8:15 am    Post subject: Reply with quote
Well, i've tried everything to get my name on the spool but alas...
To make matters worse my first file processing program throws a whole lot of junk to SYSPRINT. Am going no where with respect to this.
Am taking a break, going to bed..and will check things tomorrow.

Good day

Brian
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Sep 15, 2004 8:46 am    Post subject: Reply with quote
Brian,

Try running this JCL and see if you can see the put statements in here.

Code:

//TXXXXXA JOB (,nnnn),       
//             'Brian',     
//             CLASS=A,       
//             MSGCLASS=Y,     
//             MSGLEVEL=(1,1),
//             NOTIFY=&SYSUID
//*                           
//COMPILE  EXEC PGM=IEL0AA                       
//SYSPRINT DD SYSOUT=*                           
//SYSUT1   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT2   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT3   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT4   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT5   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT6   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSUT7   DD UNIT=DISK,SPACE=(CYL,(10,2),RLSE) 
//SYSLIN   DD DSN=&&LOADSET,                     
//            DISP=(MOD,PASS),                   
//            UNIT=DISK,                         
//            SPACE=(CYL,(1,1),RLSE)             
//SYSIN    DD  *                                             
  PLISAMP: PROC OPTIONS(MAIN);                                 
  DCL VAR1   CHARACTER(30) INIT('BRIAN TEST VARIABLE');       
  /**********************************************/
  /*  PROCESS STARTS HERE                       */
  /**********************************************/
  PUT SKIP LIST( '*******************************');           
  PUT SKIP LIST( 'PL/I SAMPLE PROGRAM STARTS HERE');           
  PUT SKIP LIST( '*******************************');           
  PUT SKIP;                                                   
  PUT SKIP LIST(VAR1);                                         
  PUT SKIP;                                                   
  PUT SKIP LIST( '*******************************');           
  PUT SKIP LIST( 'PL/I SAMPLE PROGRAM ENDS HERE  ');           
  PUT SKIP LIST( '*******************************');           
  END PLISAMP;                                                 
//*                                                           
//LKED     EXEC PGM=IEWL,PARM='XREF,LIST',COND=(9,LT,COMPILE)
//SYSLIB   DD DSN=SYS1.SCEELKED,DISP=SHR                     
//SYSPRINT DD SYSOUT=*                                       
//SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)               
//         DD DDNAME=SYSIN                                   
//SYSLMOD  DD DSN=&&GOSET(GOPGM),DISP=(MOD,PASS),UNIT=SYSDA,
//            SPACE=(1024,(50,20,1))                         
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),
//            DCB=BLKSIZE=1024                               
//SYSIN    DD DUMMY                                         
//*                                                         
//RUN      EXEC PGM=*.LKED.SYSLMOD,                         
//            COND=((9,LT,COMPILE),(9,LT,LKED)),             
//            REGION=2048K                                   
//STEPLIB  DD DSN=SYS1.SCEERUN,DISP=SHR                     
//SYSPRINT DD SYSOUT=*                                       
//CEEDUMP  DD SYSOUT=*                                       
//SYSUDUMP DD SYSOUT=*                                       
//*                                                         


The sysprint from the RUN step should be as follows.

Code:

******************************* 
PL/I SAMPLE PROGRAM STARTS HERE 
******************************* 
                                 
BRIAN TEST VARIABLE             
                                 
******************************* 
PL/I SAMPLE PROGRAM ENDS HERE   
******************************* 


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group