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;
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
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
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