Umgebungs-Variablen

ENVVARS (RPGLE)



  X * *PSSR BEGSR ENVVARS 2  
  X  
  X * *ENTRY PLIST ENVVARS 3  
  X  
H  
H *COPYRIGHT JÜRGEN REULE 2012-2023
H  
H BNDDIR('QC2LE')
H DATFMT(*ISO) TIMFMT(*ISO)
H DFTACTGRP(*NO) ACTGRP('QILE')
H COPYRIGHT('COPYRIGHT JÜRGEN REULE 2012-2023')
H  
D PTR     S     *     INZ
D VAR     S     *     BASED(PTR)
D ENVIRON     S     *     IMPORT('environ')
D INITENV     PR   10 I 0   EXTPROC('Qp0zInitEnv')
D                    
D BUF     S   32767 A     VARYING
D LINEX     S   1 A      
D                    
C       CALLP(E) INITENV()
C       EVAL BUF = ''
C       EVAL PTR = ENVIRON
C     *NULL DOWNE VAR              
C       EVAL BUF = BUF +  %STR(VAR) + LINEX
C       EVAL PTR = PTR + %SIZE(VAR)
C       ENDDO                
C       SETON         LR  
C          
C     *PSSR BEGSR                
C       ENDSR '*CANCL'              
C          
C     *ENTRY PLIST                
C       PARM   BUF            
C       PARM   LINEX            

57 ms | Kontakt | Information | Aibo-Bar © 2005-2024