Home > IT Answers > AS/400 > data search using popup window
Sarapsm
5 pts.
Q:
data search using popup window
Physical Files, RPG, CL, SQL, iSeries
Is there a sample RPG/CL/SQL code on how to create a popup window to search data from a PF?

Software/Hardware used:
RPG, CL, SQL, iSeries
ASKED: Nov 17 2009  0:44 AM GMT
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
RELATED QUESTIONS
Teandy
4495 pts.
A:
 RATE THIS ANSWER
0
Click to Vote:
  •   0
  •  0
  • Bookmark and Share
You should be able to modify this to do what you need.


 
  A*%%TS  SD  20081210  094755     REL-V5R4M0  5722-WDS
      A*%%EC
      A                                      DSPSIZ(24 80 *DS3)
      A                                      PRINT
      A                                      INDARA
      A                                      CF12(12 'CANCEL DELETE')
      A          R WS1
      A*%%TS  SD  20081210  094755    REL-V5R4M0  5722-WDS
      A                                      OVERLAY
      A                                      WINDOW(10 14 7 50)
      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI)-
      A                                       (*CHAR '        '))
      A                                  2  4'ARE YOU SURE YOU WANT TO DELETE TH-
      A                                      IS RECORD?'
      A                                      DSPATR(HI)
      A                                      COLOR(RED)
      A            SCRYESNO       1A  B  3 26DSPATR(HI)
      A                                  4 25'Y/N'
      A                                      DSPATR(HI)
      A                                      COLOR(RED)
      A                                  6 17'F12 = CANCEL DELETE'
      A                                      COLOR(BLU)
      A          R ASSUME
      A*%%TS  SD  20001121  094527      REL-V4R4M0  5769-PW1
      A                                      ASSUME
      A                                      OVERLAY
      A                                  2  2' '
      A                                      DSPATR(ND)
 
 
 
 ‚**********************************************************************
      ‚*  SET COMPILER OPTIONS
      ‚**********************************************************************
      HNOMAIN
      HOPTION(*NODEBUGIO:*SRCSTMT)
      ‚**********************************************************************
      ‚*  PROGRAM NAME: AREYOUSURE
      ‚*  CREATION DATE: 08/12/08
      ‚*  PURPOSE OF PROGRAM: DISPLAY RECORD DELETE VALIDATION SCREEN.
      ‚**********************************************************************
      ‚* FILES USED BY PROGRAM.
      ‚**********************************************************************
      FAREUSUREFMCF   E             WORKSTN USROPN
      F                                     INFDS(WSINFDS)
      ‚**********************************************************************
      ‚*  KEY PRESS DATA STRUCTURE.
      ‚**********************************************************************
      D WSINFDS         DS
      D  CMD_KEY              369    369A
      ‚**********************************************************************
      ‚* PROTOTYPE FOR PROCEDURE
      ‚*********************************************************************
      D  AREYOUSURE     PR             1
      ‚*********************************************************************
      ‚* START PROCEDURE DEFINITION
      ‚*********************************************************************
      P  AREYOUSURE     B                   EXPORT
      D  AREYOUSURE     PI             1
      ‚**********************************************************************
      ‚*  COMMAND KEY DEFINITIONS.
      ‚**********************************************************************
      D  CANCEL_DELETE  C                   Const(x'3C')
      ‚*********************************************************************
      ‚* FIELD DEFINITIONS
      ‚*********************************************************************
 
 
 
 
        //‚******************************************************************
        //‚* START FREE FORM CALCS.
        //‚******************************************************************
 
       /FREE
 
        //‚******************************************************************
        //‚* SET SCREEN DEFAULTS.
        //‚* OPEN VERIFICATION WINDOW.
        //‚******************************************************************
 
          SCRYESNO = 'N';
 
          OPEN AREUSUREFM;
 
          EXFMT WS1;
 
          IF CMD_KEY = CANCEL_DELETE;
 
            SCRYESNO = 'N';
 
          ENDIF;
 
          CLOSE AREUSUREFM;
 
        //‚******************************************************************
        //‚* RETURN SCREEN VALUE TO CALLING PROGRAM.
        //‚******************************************************************
 
          *INLR = *ON;
          RETURN SCRYESNO;
 
       /END-FREE
 
      P  AREYOUSURE     E
Last Answered: Nov 17 2009  8:40 PM GMT by Teandy   4495 pts.
  •   
RSS - Discussions Help
Discuss This Answer:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _