midrange.com code scratchpad
Name:
Example of a prompt override program.
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
04/14/2020 02:05:33 pm
IP:
Logged
Description:
Simple example of a prompt control program.
Code:
  1. Command - EXPROMPT
  2. CRTCMD CMD(EXPROMPT) PGM(X) PMTOVRPGM(EXPROMPTR)
  3.  
  4.              CMD        PROMPT('Example of a prompt override')            
  5.              PARM       KWD(REFNUMBER) TYPE(*INT2) MIN(1) KEYPARM(*YES)   
  6.              PARM       KWD(LIBRARY) TYPE(*CHAR) LEN(10)                  
  7.  
  8.  
  9. Program to handle the override. EXPROMPTR
  10.  
  11. **Free                                
  12.         // *Entry                     
  13.                                       
  14.        Dcl-Pr EXPROMPTR ExtPgm;       
  15.          *N Char(20);                 
  16.          *N Int(5);                   
  17.          *N VarChar(30);              
  18.        End-Pr;                        
  19.                                       
  20.        Dcl-Pi *N;                     
  21.          Command Char(20);            
  22.          Reference Int(5);            
  23.          ReturnVar VarChar(30);       
  24.        End-Pi;                        
  25.        Select;                        
  26.          When Reference = 1;          
  27.            ReturnVar = '??LIBRARY(A)';
  28.          When Reference = 2;          
  29.            ReturnVar = '??LIBRARY(B)';
  30.          When Reference = 3;                
  31.            ReturnVar = '??LIBRARY(C)';      
  32.          When Reference = 4;                
  33.            ReturnVar = '??LIBRARY(D)';      
  34.          Other;                             
  35.            ReturnVar = '??LIBRARY(UNKNOWN)';
  36.        EndSl;                               
  37.        *Inlr = *On;                         
  38.        Return;                              
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css