RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Edit Signon Screen Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara Withanachchi   

You can find member QDSIGNON in file QDDSSRC in library QGPL. Copy this member to new one and edit by SEU or SDA. After creating new object you have to change subsystem description (usually QINTER) - CHGSBSD - keyword SGNDSPF.


     A*%%TS  SD  20100924  103843  ITDEP1201   REL-V5R4M0  5722-WDS               
     A*%%EC                                                                       
     A                                      DSPSIZ(24 80 *DS3)                    
     A*  START OF SPECIFICATIONS   ******************************                 
     A*                                                         *                 
     A* PHYSICAL FILE MEMBER NAME:  QDSIGNON                    *                 
     A*                                                         *                 
     A*  END OF SPECIFICATIONS   ********************************                 
     A*                                                                           
     A*                                                                           
     A**************************************************************************  
     A*                                Sign On                                 *  
     A*                                       System  . . . . . :   XXXXXXXX   *  
     A*                                       Subsystem . . . . :   XXXXXXXXXX *  
     A*                                       Display . . . . . :   XXXXXXXXXX *  
     A*                                                                        *  
     A*            User  . . . . . . . . . . . . . .   ___________             *  
     A*            Password  . . . . . . . . . . . .                           *  
     A*            Program/procedure . . . . . . . .   ___________             *  
     A*            Menu  . . . . . . . . . . . . . .   ___________             * 
     A*            Current library . . . . . . . . .   ___________             * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                                                        * 
     A*                                     (C) COPYRIGHT IBM CORP. 19XX, 19YY.* 
     A************************************************************************** 
     A*                                                                          
     A* |--------|---------|---------|---------|---------|---------|---------|-- 
     A*  1       10        20        30        40        50        60        70  
     A*                                                                          
     A***********************************************************                
     A*                                                         *                
     A*  RECORD FORMAT -- NAME: SIGNON                          *              
     A*               FUNCTION: SIGN ON DISPLAY                 *              
     A*               INDICATORS USED: 01 02                    *              
     A*               FUNCTION KEYS USED: NONE                  *              
     A*               NUMBER OF I/O FIELDS:  11                 *              
     A*               KEYWORDS USED: DSPATR CHGINPDFT CLEAR     *              
     A*                              CHECK                      *              
     A*                                                         *              
     A***********************************************************              
     A*                                                                        
     A          R SIGNON                                                       
     A*%%TS  SD  20100924  103843  ITDEP1201   REL-V5R4M0  5722-WDS            
     A                                      CLEAR                              
     A                                      BLINK                              
     A                                  1 23'             Sign On             '
     A                                      DSPATR(HI)                         
     A                                  2 48'System  . . . . . :'              
     A            SYSNAME        8A  O  2 70                                   
     A                                  3 48'Subsystem . . . . :'              
     A            SBSNAME       10A  O  3 70                                    
     A                                  4 48'Display . . . . . :'               
     A            DEVNAME       10A  O  4 70                                    
     A                                  6 17'User  . . . . . . . . . . . . . .' 
     A            USERID        10A  B  6 53                                    
     A  01                              7 17'Password  . . . . . . . . . . . .' 
     A  01        PASSWRD       10A  I  7 53DSPATR(ND)                          
     A                                  8 17'Program/procedure . . . . . . . .' 
     A            PROGRAM       10A  B  8 53CHECK(LC)                           
     A                                  9 17'Menu  . . . . . . . . . . . . . .' 
     A            MENU          10A  B  9 53CHECK(LC)                           
     A                                 10 17'Current library . . . . . . . . .' 
     A            CURLIB        10A  B 10 53CHECK(LC)                           
     A  02        QSNERROR      80A  O 24  1DSPATR(HI)                          
     A            COPYRIGHT     40A  O 24 40DSPATR(HI)                          
     A            UBUFFER      128A  H                                          
     A                                 13 15'   ********       *******         -
     A                                      ******         ** '                 
     A                                      COLOR(BLU)                          
     A                                 14 15'  **//////       /**////**       /-
     A                                      *////**       /** '                 
     A                                      COLOR(BLU)                          
     A                                 15 15' /**             /**    /**      /-
     A                                      *   /**       /** '                 
     A                                      COLOR(BLU)                          
     A                                 16 15' /*********      /**    /**      /-
     A                                      ******        /** '                 
     A                                      COLOR(BLU)                          
     A                                 17 15' ////////**      /**    /**      /-
     A                                      *//// **      /** '                 
     A                                      COLOR(BLU)                          
     A                                 18 15'        /**      /**    **       /-
     A                                      *    /**      /** '                 
     A                                      COLOR(BLU)                          
     A                                 19 15'  ********       /*******        /-
     A                                      *******       /******** '           
     A                                      COLOR(BLU)                          
     A                                 20 15' ////////        ///////         /-
     A                                      //////        ////////  '           
     A                                      COLOR(BLU)                          
<Previous   Next>