systemappsprogram.blogspot.com

AS400 Cleaner Functions

//AS400 Cleaner files

D ErrMsgDSDS DS
Related imageD ErrPrefix 3
D ErrMsgID 4
D ErrMajor 2 OVERLAY(ErrMsgID:1)
D ErrMinor 2 OVERLAY(ErrMsgID:3)
D RtnCode DS
D PackedNbr 15P 5
D RtnCode DS
D PackedNbr 1 8P 5
D APIRtn DS
D Pos145 145 152
D PackNbr 15P 5
OVERLAY(Pos145)
C*                                               
C     STEP          DOUEQ     *BLANK             
C*                                               
C     STEP          CASEQ     'INZ01 '      INZ01 
C*                                               
C     STEP          CASEQ     'DSP01 '      DSP01 
C*                                               
C     STEP          CASEQ     'NOP01 '      NOP01 
C*                                               
C     STEP          CASEQ     'DSP02 '      DSP02 
C*                                               
C     STEP          CASEQ     'LSF01 '      LSF01 
C*                                               
C     STEP          CASEQ     'EDT01 '      EDT01 
C*                                               
C     STEP          CASEQ     'EDT02 '      EDT02 
C*                                               
C     STEP          CASEQ     'EXIT  '      EXIT 

D IndicatorPtr * INZ(%ADDR(*IN))

D DS BASED(IndicatorPtr)

D F03Key 3 3

D F05Key 5 5

D CustNotFnd 50 50

D SflClr 91 91

D SflDsp 92 92

D SflDspCtl 93 93

C IF F03Key = *ON

C EVAL *INLR = *ON

C RETURN

C ENDIF
C*
Share:

No comments:

Translate

Popular Posts

Recent Posts

Support System Software

Customer support is usually one of the key aspects for all companies, both small and large enterprises. Having a reliable customer support system will result in a positive image of your brand and will be a clear sing that you actually care about your clients and put effort into keeping them satisfied. Our team of SaaS experts have collected and tested all popular customer support software services currently available in the market. Our list should allow you to more easily decide which solution will work best for your business. Need our help to upload or customize this blogger template? Contact me with details about the theme customization you need.