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

Screen File of Calender Program (IDHLPCAL) Print E-mail
User Rating: / 0
PoorBest 

Written by Chamara Withanachchi   
 
 A                                      DSPSIZ(24 80 *DS3) 
 A                                      CHGINPDFT 
 A                                      PRINT 
 A                                      ENTFLDATR((*COLOR RED) (*DSPATR RI))
 A          R FMT001 
 A                                      CA03(03 'EXIT') 
 A                                      CA07(07 'EXIT') 
 A                                      CA12(12 'EXIT') 
 A                                      CF04(84) 
 A                                      CF05(85) 
 A                                      PAGEUP(84) 
 A                                      PAGEDOWN(85) 
 A                                      KEEP 
 A                                      RTNCSRLOC(&CSRRCD &CSRFLD - 
                                                   &CSRPOS) 
 A  05                                  CSRLOC(ROW        COL) 
 A                                      OVERLAY 
 A                                      WINDOW(*DFT 9 21 *NOMSGLIN) 
 A                                      WDWTITLE((*TEXT ' F3=CANCEL,  - 
                                                    PGUP/DOWN ') *BOTTOM) 
 A                                      MOUBTN(*ULD ENTER) 
 A            @DAY01         1A  P 
 A            @DAY02         1A  P 
 
 A            @DAY02         1A  P
A @DAY03 1A P
A @DAY04 1A P
A @DAY05 1A P
A @DAY06 1A P
A @DAY07 1A P
A @DAY08 1A P
A @DAY09 1A P
A @DAY10 1A P
A @DAY11 1A P
A @DAY12 1A P
A @DAY13 1A P
A @DAY14 1A P
A @DAY15 1A P
A @DAY16 1A P
A @DAY17 1A P
A @DAY18 1A P
A @DAY19 1A P
A @DAY20 1A P
A @DAY21 1A P
A @DAY22 1A P
A @DAY23 1A P
A @DAY24 1A P
A @DAY25 1A P A @DAY26 1A P
A @DAY27 1A P
A @DAY28 1A P
A @DAY29 1A P
A @DAY30 1A P
A @DAY31 1A P
A @DAY32 1A P
A @DAY33 1A P
A @DAY34 1A P
A @DAY35 1A P
A @DAY36 1A P
A @DAY37 1A P
A @DAY38 1A P
A @DAY39 1A P
A @DAY40 1A P
A @DAY41 1A P
A @DAY42 1A P
A CSRRCD 10A H
A CSRFLD 10A H
A CSRPOS 4S 0H
A ROW 3S 0H
A COL 3S 0H
A MTHNAME 10A O 1 1DSPATR(HI) A YEARNUM 4S 0O 1 17DSPATR(HI)
A 3 2'S'
A COLOR(RED)
A 3 5'M'
A COLOR(BLU)
A 3 8'T'
A COLOR(BLU)
A 3 11'W'
A COLOR(BLU)
A 3 14'T'
A COLOR(BLU)
A 3 17'F'
A COLOR(BLU)
A 3 20'S'
A COLOR(RED)
A DAY01 2A B 4 1DSPATR(&@DAY01)
A DAY02 2A B 4 4DSPATR(&@DAY02)
A DAY03 2A B 4 7DSPATR(&@DAY03)
A DAY04 2A B 4 10DSPATR(&@DAY04)
A DAY05 2A B 4 13DSPATR(&@DAY05)
A DAY06 2A B 4 16DSPATR(&@DAY06)
A DAY07 2A B 4 19DSPATR(&@DAY07)
A DAY08 2A B 5 1DSPATR(&@DAY08) A DAY09 2A B 5 4DSPATR(&@DAY09)
A DAY10 2A B 5 7DSPATR(&@DAY10)
A DAY11 2A B 5 10DSPATR(&@DAY11)
A DAY12 2A B 5 13DSPATR(&@DAY12)
A DAY13 2A B 5 16DSPATR(&@DAY13)
A DAY14 2A B 5 19DSPATR(&@DAY14)
A DAY15 2A B 6 1DSPATR(&@DAY15)
A DAY16 2A B 6 4DSPATR(&@DAY16)
A DAY17 2A B 6 7DSPATR(&@DAY17)
A DAY18 2A B 6 10DSPATR(&@DAY18)
A DAY19 2A B 6 13DSPATR(&@DAY19)
A DAY20 2A B 6 16DSPATR(&@DAY20)
A DAY21 2A B 6 19DSPATR(&@DAY21)
A DAY22 2A B 7 1DSPATR(&@DAY22)
A DAY23 2A B 7 4DSPATR(&@DAY23)
A DAY24 2A B 7 7DSPATR(&@DAY24)
A DAY25 2A B 7 10DSPATR(&@DAY25)
A DAY26 2A B 7 13DSPATR(&@DAY26)
A DAY27 2A B 7 16DSPATR(&@DAY27)
A DAY28 2A B 7 19DSPATR(&@DAY28)
A DAY29 2A B 8 1DSPATR(&@DAY29)
A DAY30 2A B 8 4DSPATR(&@DAY30)
A DAY31 2A B 8 7DSPATR(&@DAY31) A DAY32 2A B 8 10DSPATR(&@DAY32)
A DAY33 2A B 8 13DSPATR(&@DAY33)
A DAY34 2A B 8 16DSPATR(&@DAY34)
A DAY35 2A B 8 19DSPATR(&@DAY35)
A DAY36 2A B 9 1DSPATR(&@DAY36)
A DAY37 2A B 9 4DSPATR(&@DAY37)
A DAY38 2A B 9 7DSPATR(&@DAY38)
A DAY39 2A B 9 10DSPATR(&@DAY39)
A DAY40 2A B 9 13DSPATR(&@DAY40)
A DAY41 2A B 9 16DSPATR(&@DAY41)
A DAY42 2A B 9 19DSPATR(&@DAY42)
A R DUMMY
A*
A KEEP
A ASSUME
A 1 3' '
User Comments

Please login or register to add comments

<Previous   Next>