Article

SEU color --code

 Here is the DSPF:
=================
     A*%%TS  SD  20021107  103112  PGMMGR      REL-V5R1M0  5722-WDS             
     A*%%EC                                                                     
     A*%%==============================================================         
     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      CA03(03)                            
     A                                      CA12(12)                            
     A          R ASSUME                                                        
     A                                      ASSUME                              
     A                                  2  1' '                                 
     A*%%==============================================================         
     A          R THECOLORS                                                     
     A*%%TS  SD  20021107  103112  PGMMGR      REL-V5R1M0  5722-WDS             
     A                                      WINDOW(3 6 18 65)                   
     A                                      WDWBORDER((*COLOR WHT) (*DSPATR HI -
     A                                      RI) (*CHAR '        '))             
     A                                      WDWTITLE((*TEXT &WINTITLE) *CENTER) 
     A            WINTITLE      40A  P                                          
     A            MEMBERTYPE    10   O  1 56                                    
     A                                  2  1'20'                                
     A                                  2  4'Green'                             
     A                                  2 34'30'                                
     A                                  2 37'Turqouise'                         
     A                                      DSPATR(CS)                          
     A                                  3  1'21'                                
     A                                  3  4'Green Reversed'                    
     A                                      DSPATR(RI)                          
     A                                  3 34'31'                                
     A                                  3 37'Turquoise Reversed'                
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                  4  1'22'                                
     A                                  4  4'White'                             
     A                                      DSPATR(HI)                          
     A                                  4 34'32'                                
     A                                  4 37'Yellow'                            
     A                                      DSPATR(HI)                          
     A                                      DSPATR(CS)                          
     A                                  5  1'23'                                
     A                                  5  4'White Reversed'                    
     A                                      DSPATR(HI)                          
     A                                      DSPATR(RI)                          
     A                                  5 34'33'                                
     A                                  5 37'Yellow Reversed'                   
     A                                      DSPATR(HI)                          
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                  6  1'24'                                
     A                                  6  4'Green Underlined'                  
     A                                      DSPATR(UL)                          
     A                                  6 34'34'                                
     A                                  6 37'Turquoise Underlined'              
     A                                      DSPATR(CS)                          
     A                                      DSPATR(UL)                          
     A                                  7  1'25'                                
     A                                  7  4'Green Underline Reversed'          
     A                                      DSPATR(RI)                          
     A                                      DSPATR(UL)                          
     A                                  7 34'35'                                
     A                                  7 37'Turquoise Underlined Reversed'     
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(UL)                          
     A                                  8  1'26'                                
     A                                  8  4'White Underlined'                  
     A                                      DSPATR(HI)                          
     A                                      DSPATR(UL)                          
     A                                  8 34'36'                                
     A                                  8 37'Yellow Underlined'                 
     A                                      DSPATR(HI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(UL)                          
     A                                  9  1'28'                                
     A                                  9  4'Red'                               
     A                                      DSPATR(BL)                          
     A                                  9 34'38'                                
     A                                  9 37'Pink'                              
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                 10  1'29'                                
     A                                 10  4'Red Reversed'                      
     A                                      DSPATR(RI)                          
     A                                      DSPATR(BL)                          
     A                                 10 34'39'                                
     A                                 10 37'Pink Reversed'                     
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                 11  1'2A'                                
     A                                 11  4'Red Blink'                         
     A                                      DSPATR(HI)                          
     A                                      DSPATR(BL)                          
     A                                 11 34'3A'                                
     A                                 11 37'Blue'                              
     A                                      DSPATR(HI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                 12  1'2B'                                
     A                                 12  4'Red Blink Reversed'                
     A                                      DSPATR(HI)                          
     A                                      DSPATR(RI)                          
     A                                      DSPATR(BL)                          
     A                                 12 34'3B'                                
     A                                 12 37'Blue Reversed'                     
     A                                      DSPATR(HI)                          
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                 13  1'2C'                                
     A                                 13  4'Red Underlined'                    
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 13 34'3C'                                
     A                                 13 37'Pink Underlined'                   
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 14  1'2D'                                
     A                                 14  4'Red Underlined Reversed'           
     A                                      DSPATR(RI)                          
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 14 34'3D'                                
     A                                 14 37'Pink Underlined Reversed'          
     A                                      DSPATR(RI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 15  1'2E'                                
     A                                 15  4'Red Underlined Blink'              
     A                                      DSPATR(HI)                          
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 15 34'3E'                                
     A                                 15 37'Blue Underlined'                   
     A                                      DSPATR(HI)                          
     A                                      DSPATR(CS)                          
     A                                      DSPATR(BL)                          
     A                                      DSPATR(UL)                          
     A                                 17  1' Select: '                         
     A                                      DSPATR(HI)                          
     A                                      DSPATR(RI)                          
     A            ZCHOOSE        2A  B 17 11VALUES('  ' '20' '21' '22' '23' '24-
     A                                      ' '25' '26' '28' '29' '2A' '2B' '2C-
     A                                      ' '2D' '2E' '30' '31' '32' '33' '34-
     A                                      ' '35' '36' '38' '39' '3A' '3B' '3C-
     A                                      ' '3D' '3E')                        
     A                                      DSPATR(PC)                          
     A                                 17 14'                    '              
     A                                      DSPATR(RI)                          
     A                                      DSPATR(HI)                          
     A                                 17 46'F3'                                
     A                                      DSPATR(HI)                          
     A                                 17 49'or'                                
     A                                 17 52'F12'                               
     A                                      DSPATR(HI)                          
     A                                 17 56'to return.'                        


and the RPGLE code:
===================
    _ * ADDEXITPGM EXITPNT(QIBM_QSU_LCMD) FORMAT(EXTP0100) PGMNBR(*LOW) +                           
    _ * PGM("QGPL"/"SEUColor")                                                                      
      * or                                                                                          
    _ * WRKREGINF (Look for QIBM_QSU_LCMD, you get the idea)                                        
    + * Hex values and their corresponding display attributes                                       
    + * Omit 27, 2F, 37 & 3F (Nondisplay)                                                           
      * __________________________________________________________                                  
      * Hex    DSPATR           Color                                                               
      * _____  ______________   __________________________________                                  
      * x'20'  __ __ __ __ __   Green                                                               
      * x'21'  __ __ __ __ RI  |Green + Reversed                                                    
      * x'22'  __ __ __ HI __  +White                                                               
      * x'23'  __ __ __ HI RI  +White + Reversed                                                    
      * x'24'  __ __ UL __ __  +Green + Underline                                                   
      * x'25'  __ __ UL __ RI  
Green + Underline + Reversed                                        
      * x'26'  __ __ UL HI __  _White + Underline                                                   
      * x'27' -Nondisplay                                                                           
      * x'28'  __ BL __ __ __  |Red                                                                 
      * x'29'  __ BL __ __ RI  -Red + Reversed                                                      
      * x'2A'  __ BL __ HI __  +Red + Blink                                                         
      * x'2B'  __ BL __ HI RI   Red + Blink + Reversed                                              
      * x'2C'  __ BL UL __ __  |Red + Underline                                                     
      * x'2D'  __ BL UL __ RI  _Red + Underline + Reversed                                          
      * x'2E'  __ BL UL HI __  _Red + Underline + Blink                                             
      * x'2F' -Nondisplay                                                                           
      * x'30'  CS __ __ __ __  -Turqouise                                                           
      * x'31'  CS __ __ __ RI  |Turqouise + Reversed                                                
      * x'32'  CS __ __ HI __  _Yellow                                                              
      * x'33'  CS __ __ HI RI  +Yellow + Reversed                                                   
      * x'34'  CS __ UL __ __  +Turqouise + Underline                                               
      * x'35'  CS __ UL __ RI  +Turqouise + Underline + Reversed                                    
      * x'36'  CS __ UL HI __  |Yellow + Underline                                                  
      * x'37' -Nondisplay                                                                           
      * x'38'  CS BL __ __ __  |Pink                                                                
      * x'39'  CS BL __ __ RI  -Pink + Reversed                                                     
      * x'3A'  CS BL __ HI __  +Blue                                                                
      * x'3B'  CS BL __ HI RI  ?Blue + Reversed                                                     
      * x'3C'  CS BL UL __ __  (Pink + Underline                                                    
      * x'3D'  CS BL UN __ RI  )Pink + Underline + Reversed                                         
      * x'3E'  CS BL UL HI __  |Blue + Underline                                                    
      * x'3F' -Nondisplay                                                                           
      * __________________                                                                          
     FSeuColor  CF   E             WorkStn INFDS(TheDisplay)                                        
      * __________________                                                                          
    + * Header information                                                                          
     DHeaderInfo       DS                  BASED(Parm1)                                             
     D  RecLength              1      4B 0                                                          
     D  CursorRRN              5      8B 0                                                          
    -D  CursorPos              9     12B 0                                                          
     D  CCSID                 13     16B 0                                                          
     D  Records               17     20B 0                                                          
     D  MemberName            21     30                                                             
     D  FileName              31     40                                                             
     D  LibraryName           41     50                                                             
     D  MemberType            51     60                                                             
     D  CmdKey                61     61                                                             
     D  Mode                  62     62                                                             
     D  SplitSess             63     63                                                             
     D  Res                   64     64                                                             
                                                                                                    
    | * Return Codes                                                                                
     DReturnInfo       DS                  BASED(Parm2)                                             
     D RetCode                 1      1                                                             
     D Res2                    2      4                                                             
     D OutRecs                 5      8B 0                                                          
     D InsertSequence          9     15                                                             
     D Res3                   16     37                                                             
                                                                                                    
    | * Line Command and Text                                                                       
     DLinInfomation    DS                  BASED(Parm3)                                             
     D  Command1               1      7                                                             
     D  Return1                8     20                                                             
     D  Text1                 21    100                                                             
     D  Command2             101    107                                                             
     D  Reutrn2              108    120                                                             
     D  Text2                121    200                                                             
                                                                                                    
    | * Entry Parameters declarations                                                               
     D Parm1           S               *                                                            
     D Parm2           S               *                                                            
     D Parm3           S               *                                                            
                                                                                                    
    | *   Display File Information Data Structure                                                   
     DTheDisplay       DS                                                                           
     D DisplayData             1    370                                                             
     D Key                   369    369                                         Key Pressed         
     D CurrPanel             261    270                                         Current Panel       
     D ScreenSize             67     70                                         Screen Size         
     D DeviceName            197    206                                         Device Name         
     D DeviceType            272    277                                         Device Type         
     D DeviceRows            282    283B 0                                      Number of Rows      
     D DeviceCols            284    285B 0                                      Number of Cols      
     D AllowBlink            286    286                                         Allow Blink         
     D DisplayLoc            288    288                                         Display Location    
     D RemoteLoc             294    301                                         Remote Location     
                                                                                                    
    | *   Function Key Data Structure (Hexadecimal Constants for Function Keys)                     
     DFunctionKeys     DS                                                                           
     D F03                            1A   INZ(X'33')                           Exit Key            
     D F12                            1A   INZ(X'3C')                           Cancel Key          
     D EXIT                           1A   INZ(X'FF')                                               
    | *   Define Program Standalone Fields                                                          
     DHexPos           S              2S 0 Inz(05)                              Hex Code Position      
     DMyMsg            S             78    Inz(*Blanks)                         Error Message      
     DLength           S             15P 5 Inz(256)                             QCMDEXC Length      
     DCommand          S            256    Inz(*Blanks)                         Apostrophe      
     DApostrophe       S              1A   Inz('''')                                                
    + *_____________________________________________________________________                        
     C     *Entry        Plist                                                                      
     C                   Parm                    Parm1                                              
     C                   Parm                    Parm2                                              
     C                   Parm                    Parm3                                              
      *                                                                                             
      * QCMDEXC Parameter List                                                                      
     C     CommandS      PList                                                                      
     C                   Parm                    Command                                            
     C                   Parm                    Length                                             
      *                                                                                             
      * Bypass some sources, since the compiler reads the whole line                                
      * and wont understand the Hex code.                                                           
     C                   Select                                                                     
     C     MemberType    WhenEq    'CLP'                                                            
     C     MemberType    OrEq      'CLP38'                                                          
     C     MemberType    OrEq      'CLLE'                                                           
     C     MemberType    OrEq      'CLMOD'                                                          
     C     MemberType    OrEq      'MENU'                                                           
     C     MemberType    OrEq      'CMD'                                                            
     C     MemberType    OrEq      'HTML'                                                           
     C     MemberType    OrEq      'TXT'                                                            
     C     MemberType    OrEq      'PNLGRP'                                                         
     C                   Eval      MyMsg = 'Sorry, dude, you can not color a -                      
     C                             source type '+ MemberType                                        
     C                   Eval      Command = 'SNDMSG MSG(' + Apostrophe +                           
     C                             MyMsg + Apostrophe +                                             
     C                             ') TOUSR(*REQUESTER)'                                            
     C                   Call      'QCMDEXC'     Commands                                           
     C                   Exsr      NoDeed                                                           
      *                                                                                             
     C                   Other                                                                      
     C                   Exsr      DoTheDeed                                                        
     C                   EndSl                                                                      
      *                                                                                             
     C                   Seton                                        LrRt                          
    + *_____________________________________________________________________                        
     C     DoTheDeed     BEGSR                                                                      
      *    ___________________                                                                      
     C                   Select                                                                     
      * F7 to change the entire line color (any line)                                               
     C                   When      CmdKey='7' and CursorPos<>0                                      
     C                   Eval      WinTitle = 'SEU Entire Line Color/Attribute'                     
      * Write the Hex in pos. 5                                                                     
     C                   Eval      HexPos = 5                                                       
     C                   ExSr      SetTheColor                                                      
      *                                                                                             
      * F8 to change comment line ONLY (anywhere on the line)                                       
     C                   When      CmdKey='8' and CursorPos > 6                                     
     C                   If        %Subst(Text1:7:1)='*'                                            
     C                   Eval      WinTitle = 'SEU Comment Color/Attribute'                         
      * Find if cursor is positioned on a blank. If not, find a blank                               
     C                   DoW       CursorPos<>0                                                     
     C                   If        %Subst(Text1:CursorPos:1)=*Blanks                                
     C                   Eval      HexPos = CursorPos                                               
     C                   ExSr      SetTheColor                                                      
     C                   Eval      CursorPos = 0                                                    
     C                   Else                                                                       
     C                   Sub       1             CursorPos                                          
     C                   EndIf                                                                      
     C                   EndDo                                                                      
     C                   EndIf                                                                      
      *                                                                                             
     C                   EndSl                                                                      
      * F3 or F12                                                                                   
     C                   Exsr      NoDeed                                                           
     C                   EndSr                                                                      
      *                                                                                             
    | * Set the color                                                                               
     C     SetTheColor   BegSr                                                                      
      *    ___________________                                                                      
     C                   Dow       Key <> Exit                                                      
     C                   ExFmt     TheColors                                                        
     C                   Select                                                                     
     C                   When      Key = F03 or Key = F12                                           
     C                   Eval      Key = Exit                                                       
     C                   EndSl                                                                      
     C                   If        ZChoose <> *Blanks                                               
     C                   Select                                                                     
     C                   When      ZChoose = '20'                                                   
     C                   Eval      %Subst(Text1:HexPos:1)=x'20'                                     
     C                   When      ZChoose = '21'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'21'                                     
     C                   When      ZChoose = '22'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'22'                                     
     C                   When      ZChoose = '23'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'23'                                     
     C                   When      ZChoose = '24'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'24'                                     
     C                   When      ZChoose = '25'                                                   
    
C                   Eval      %Subst(Text1:HexPos:1)=x'25'                                     
     C                   When      ZChoose = '26'                                                   
    _C                   Eval      %Subst(Text1:HexPos:1)=x'26'                                     
     C                   When      ZChoose = '28'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'28'                                     
     C                   When      ZChoose = '29'                                                   
    -C                   Eval      %Subst(Text1:HexPos:1)=x'29'                                     
     C                   When      ZChoose = '2A'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'2A'                                     
     C                   When      ZChoose = '2B'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'2B'                                     
     C                   When      ZChoose = '2C'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'2C'                                     
     C                   When      ZChoose = '2D'                                                   
    _C                   Eval      %Subst(Text1:HexPos:1)=x'2D'                                     
     C                   When      ZChoose = '2E'                                                   
    _C                   Eval      %Subst(Text1:HexPos:1)=x'2E'                                     
     C                   When      ZChoose = '30'                                                   
    -C                   Eval      %Subst(Text1:HexPos:1)=x'30'                                     
     C                   When      ZChoose = '31'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'31'                                     
     C                   When      ZChoose = '32'                                                   
    _C                   Eval      %Subst(Text1:HexPos:1)=x'32'                                     
     C                   When      ZChoose = '33'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'33'                                     
     C                   When      ZChoose = '34'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'34'                                     
     C                   When      ZChoose = '35'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'35'                                     
     C                   When      ZChoose = '36'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'36'                                     
     C                   When      ZChoose = '38'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'38'                                     
     C                   When      ZChoose = '39'                                                   
    -C                   Eval      %Subst(Text1:HexPos:1)=x'39'                                     
     C                   When      ZChoose = '3A'                                                   
    +C                   Eval      %Subst(Text1:HexPos:1)=x'3A'                                     
     C                   When      ZChoose = '3B'                                                   
    ?C                   Eval      %Subst(Text1:HexPos:1)=x'3B'                                     
     C                   When      ZChoose = '3C'                                                   
    (C                   Eval      %Subst(Text1:HexPos:1)=x'3C'                                     
     C                   When      ZChoose = '3D'                                                   
    )C                   Eval      %Subst(Text1:HexPos:1)=x'3D'                                     
     C                   When      ZChoose = '3E'                                                   
    |C                   Eval      %Subst(Text1:HexPos:1)=x'3E'                                     
     C                   EndSl                                                                      
      * Show that data was changed                                                                  
     C                   Exsr      DeedDone                                                         
     C                   EndIf                                                                      
     C                   EndDo                                                                      
     C                   EndSr                                                                      
    | * Return codes set to update                                                                  
     C     DeedDone      BegSr                                                                      
      *    ___________________                                                                      
     C                   Eval      OutRecs=1                                                        
     C                   Eval      Retcode='0'                                                      
     C                   Eval      Key = Exit                                                       
     C                   EndSr                                                                      
    | * F3 or F12                                                                                   
     C     NoDeed        BegSr                                                                      
      *    ___________________                                                                      
     C                   Eval      OutRecs=1                                                        
     C                   Eval      Retcode='0'                                                      
     C                   EndSr                                                                      
      *________________________________________________________________   

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: