RE: System Command (atnpgm)

Try something like the following, it will allow you to have a command line
within a command line within a ...  Just using QUSCMDLIN only gets you one
kick at the cat.


***************************************************************************
             PGM                                                           
             DCL        VAR(&LMTCPB) TYPE(*CHAR) LEN(10)                   
                                                                           
             RTVUSRPRF  LMTCPB(&LMTCPB)                                    
             IF         COND(&LMTCPB *NE '*NO') THEN(GOTO CMDLBL(EXIT))    
                                                                           
             SETATNPGM  PGM(*CURRENT) SET(*ON)                             
             CALL QUSCMDLN                                                 
EXIT:        ENDPGM            
***************************************************************************
Tom Westdorp
AS/400 Senior Programmer/Analyst 
  
IBM Certified Specialist - RPG IV Programmer
IBM Certified Specialist - RPG IV Developer 
Certified Master RPG IV Programmer 
Internal Telephone # 04-6859
Voice: (702) 221-6859
Fax:    (702) 221-6881
tom.westdorp@stationcasinos.com 


                                            
-----Original Message-----
From: Hatzenbeler, Tim [mailto:thatzenbeler@clinitech.net]
Sent: Friday, December 29, 2000 12:01 PM
To: 'RPG400-L@midrange.com'
Subject: RE: System Command (atnpgm)


Great suggestion... 
tim 
-----Original Message----- 
From:   Scott Klement [SMTP:klemscot@klements.com] 
Sent:   Friday, December 29, 2000 10:48 AM 
To:     RPG400-L@midrange.com 
Subject:        Re: System Command 


Personally, I have it set as my "Attention Program" with CHGUSRPRF 
ATNPGM(QUSCMDLN) so that whenever I want a command line, I just hit Attn. 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---