displaying repeatedly



IBM's cross-platform compiler PL/I for MVS, VM & VSE, OS/390 and Enterprise PL/I for z/OS

displaying repeatedly

Postby surime72 » Wed Jul 04, 2012 6:41 pm

hi,
iwas written pli-ispf dialog program (enhancement)
while i was displaying it showing repeatedly
CALL ISPLINK
('TBCREATE', 'PRDTTPAZ',' ', TBMHAA, 'NOWRITE', 'REPLACE');
P8888_HAZ_PARTDETAILS: PROC;                 
  TBMHAA = 'PARTNUMA';                       
 IF  SHIPPRDT ¬= ' ' THEN DO;               
                               
   EXEC SQL                                   
     
 SELECT PART_ITEM_NO INTO  :HOLD_HAZ                             
    FROM SHIP.TBSHPITM                       
      WHERE                                   
      PART_ITEM_NO  = :TBVHBOM4.PART_NO       
FETCH FIRST ROW ONLY;
SELECT (SQLCODE);                         
                                           
   WHEN(0)                                 
    DO;                                   
  PARTNUMA = TBVHBOM4.PART_NO;             
  CALL ISPLINK ('TBADD', 'PRDTTPAZ');     
                                           
     ERROR_S = YES;                       
    REPEAT = REPEAT + 1;                   
IF REPEAT > 0 THEN DO;                                   
      EXEC SQL COMMIT;                                   
   CALL ISPLINK ('VPUT ', '(PARTNUMA)','PROFILE');       
                                                         
  CALL ISPLINK ('TBTOP', 'PRDTTPAZ');                   
  CALL ISPLINK ('TBDISPL', 'PRDTTPAZ', 'PRDTPPAZ');     
 IF ERROR_S = YES THEN                                   
 RETURN;                                                 
   END;                                               


as per my requriment need to prees a
and diplay like this
 0STPSWCH   
 06104180AA 
 05058759AA 
 68029398AB 
 68048724AA 
 06104350AA 
 04891968AA


if ipress PF03
again press a it displaying like this
0STPSWCH   
06104180AA 
05058759AA 
68029398AB 
68048724AA 
06104350AA 
04891968AA 
0STPSWCH   
06104180AA 
05058759AA 
68029398AB
68048724AA
06104350AA
04891968AA


in this way the loop repeating
if i prees a again it wil repeat again
i was new to pli and ispf dialog
surime72
 
Posts: 107
Joined: Sun Oct 23, 2011 1:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: displaying repeatedly

Postby prino » Thu Jul 05, 2012 12:27 am

Maybe you can ask your employer to actually send you to PL/I and ISPF dialog design courses, rather than coming here every two minutes with more incomprehensible programs and even more incomprehensible output.
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 635
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times

Re: displaying repeatedly

Postby dick scherrer » Thu Jul 05, 2012 9:02 am

Hello,

As Prino says, you really do need to get some actual training. The things you want to learn will be most difficult if you have neither training nor knowledgable co-corkers.

We are not able to "teach" hear at the forum - we just don't have the resources. We will help people learn, but cannot conduct "training" as such abd this is what you need at this point.

Suggest you search on the web for code that does something similar to what you want to do, download this, and make sure you understand all of it. Then apply what you have found to your code and begin testing again.

If you are determined to do this with no training, it will take much longer and you will probably learn some bad habits along the way. If you wil not / cannot attend training suggest you invest in a good pl/i book (not the manuals - i depend on manuals for reference, but not for learning somethng brand new). I don't "Do" pl/i, but the people here who do, can probably recommend some good publications.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to PL/I

 


  • Related topics
    Replies
    Views
    Last post