* codigo de la pantalla * A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A R SCR02 SFL A*%%TS SD 20031021 091012 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR03 SFLCTL(SCR02) A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1 A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(1 2 8 20 *NOMSGLIN) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4 0O 1 16DSPATR(HI) A DSPATR(UL) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI) A R SCR04 A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1 A ASSUME A OVERLAY A 1 3\' \' A MSG 78A O 21 2DSPATR(UL) A DSPATR(HI) A 22 3\'Teclas de Funci¢n :\' A 22 54\'\' A DSPATR(HI) A 22 64\'Regresa Pagina.\' A 23 24\'\' A DSPATR(HI) A 23 32\'Salir.\' A 23 42\'\' A DSPATR(HI) A 23 47\'C/A¤o\' A 23 54\'\' A DSPATR(HI) A 23 64\'Avanza Pagina.\' A 24 9\'Hoy estamos a:\' A MIKDIA 2 0O 24 24DSPATR(HI) A 24 27\'/\' A DSPATR(HI) A MIKMES 10 O 24 29DSPATR(HI) A 24 40\'/\' A DSPATR(HI) A MIKAYO 4 0O 24 42DSPATR(HI) A 24 48\'y son las :\' A 24 60TIME A DSPATR(HI) A R SCR06 A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1 A CF03(03 \'salir\') A CF04(04 \'msg\') A OVERLAY A 1 2\'Fecha :\' A 1 10DATE A EDTCDE(Y) A 1 30\'kit de Herramientas de\' A DSPATR(HI) A 1 65\'Hora :\' A 1 72TIME A 2 2\'Sistema :\' A 2 12SYSNAME A 2 28\'Miguel Angel Alvarez Mu¤iz\' A DSPATR(HI) A 2 59\'Terminal :\' A DEV 10A O 2 70 A 3 2\'Usuario :\' A 3 12USER A 3 59\'Programa :\' A PGM 10A O 3 70 A PROGRAMA 80A O 4 1DSPATR(HI) A DSPATR(UL) A 10 21\'Apartir de que a¤o desea ver Calen- A dario\' A AYO 4Y 0B 12 39EDTCDE(Z) A DSPATR(HI) A 13 16\'Nota :\' A 14 24\'Recuerde usted que solo tenemos de- A l\' A 15 24\'2000 al 2028....llegara Usted ?\' A MSG 78A O 21 2DSPATR(UL) A DSPATR(HI) A 22 3\'Teclas de Funci¢n :\' A 22 24\'\' A DSPATR(HI) A 22 32\'Acepta.\' A 23 24\'\' A DSPATR(HI) A 23 32\'Salir.\' A 24 9\'Hoy estamos a:\' A MIKDIA 2 0O 24 24DSPATR(HI) A 24 27\'/\' A DSPATR(HI) A MIKMES 10 O 24 29DSPATR(HI) A 24 40\'/\' A DSPATR(HI) A MIKAYO 4 0O 24 42DSPATR(HI) A 24 48\'y son las :\' A 24 60TIME A DSPATR(HI) A R SCR12 SFL A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR13 SFLCTL(SCR12) A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1 A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(1 27 8 20 *NOMSGLIN) A CF03(03) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4 0O 1 15DSPATR(HI) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI) A R SCR22 SFL A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR23 SFLCTL(SCR22) A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1 A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(1 53 8 20 *NOMSGLIN) A CF03(03) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4 0O 1 15DSPATR(HI) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI) A R SCR32 SFL A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR33 SFLCTL(SCR32) A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1 A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(11 2 8 20 *NOMSGLIN) A CF03(03) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4 0O 1 15DSPATR(HI) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI) A R SCR42 SFL A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR43 SFLCTL(SCR42) A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1 A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(11 27 8 20 *NOMSGLIN) A CF03(03) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4 0O 1 15DSPATR(HI) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI) A R SCR52 SFL A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1 A PDD01 2Y 0O 3 1EDTCDE(Z) A 20 DSPATR(HI) A PDD02 2Y 0O 3 4EDTCDE(Z) A 21 DSPATR(HI) A PDD03 2Y 0O 3 7EDTCDE(Z) A 22 DSPATR(HI) A PDD04 2Y 0O 3 10EDTCDE(Z) A 23 DSPATR(HI) A PDD05 2Y 0O 3 13EDTCDE(Z) A 24 DSPATR(HI) A PDD06 2Y 0O 3 16EDTCDE(Z) A 25 DSPATR(HI) A PDD07 2Y 0O 3 19EDTCDE(Z) A 26 DSPATR(HI) A R SCR53 SFLCTL(SCR52) A*%%TS SD 20031022 122734 MIGUEL REL-V4R2M0 5769-PW1 A CF03(03) A CF05(05) A PAGEDOWN(08) A PAGEUP(09) A OVERLAY A N50 SFLDSP A N50 SFLDSPCTL A 50 SFLCLR A SFLSIZ(0006) A SFLPAG(0006) A WINDOW(11 53 8 20 *NOMSGLIN) A WDWTITLE((*TEXT \'CALENDARIO\') (*DSP- A ATR RI) *CENTER) A NOMBRE 10A O 1 2DSPATR(HI) A DSPATR(UL) A 1 13\'/\' A DSPATR(HI) A AYO 4S 0O 1 15DSPATR(HI) A 2 1\'Do Lu Ma Mi Ju Vi Sa\' A DSPATR(HI)  * * codigo del programa RPG * H* H* SISTEMA : ( KITTOOLS. ) KIT DE HERRAMIENTAS................. H* PROGRAMA : ( CALAYOPF ) CALENDARIO.......................... H* PANTALLA : ( CALAYOFM ) PANTALAL DE PARAMETROS.............. H* AUTOR : ( MIGUEL ANGEL ALVAREZ MU¥IZ...................... H* FECHA DE ELABORACION : 21 DE OCTUBRE DE 2003 H* FCALAYOFM CF E WORKSTN F SFILE(SCR02:NUMREA) F SFILE(SCR12:NUMREB) F SFILE(SCR22:NUMREC) F SFILE(SCR32:NUMRED) F SFILE(SCR42:NUMREE) F SFILE(SCR52:NUMREF) D* D* DESCRIPCION DE PROGRAMAS Y/O CL\'S D* D MIK01 C CONST(\'KITTOOLS/PETSYS\') D* D* DESCRIPCION DE TABLAS D* D TABNUM S 2 0 DIM(12) CTDATA PERRCD(1) ASCEND D TABMES S 10 DIM(12) ALT(TABNUM) D TABN S 2 0 DIM(12) CTDATA PERRCD(1) ASCEND D TABD S 2 0 DIM(12) ALT(TABN) D TABAA S 4 0 DIM(29) CTDATA PERRCD(1) ASCEND D TABBB S 12 0 DIM(29) ALT(TABAA) D TABCC S 2 0 DIM(42) CTDATA PERRCD(7) ASCEND D TABDD S 1 0 DIM(42) ALT(TABCC) D* D* DESCRIPCION DE ARREGLOS DE MSG DE PANTALLA D* DERR S 80 DIM(3) CTDATA PERRCD(1) DARR S 1 0 DIM(12) D* D* DESCRIPCION DE ESTRUCTURAS D* D DS DMESES 1 12 0 DM1 1 1 0 DM2 2 2 0 DM3 3 3 0 DM4 4 4 0 DM5 5 5 0 DM6 6 6 0 DM7 7 7 0 DM8 8 8 0 DM9 9 9 0 DM10 10 10 0 DM11 11 11 0 DM12 12 12 0 D* D* DESCRIPCION DEL PROGRAMA,TERMINAL Y USUARIO D* D SDS DPGM 1 10 DDEV 244 253 DUSR 254 263 DSYS 314 323 C* C MOVEL ERR(3) PROGRAMA C Z-ADD *DAY MIKDIA C *MONTH LOOKUP TABNUM TABMES 10 10 C MOVEL TABMES MIKMES C Z-ADD *YEAR MIKAYO C* C* INICI CICLO DE PRIMERA PANTALLA C* C M00 TAG C EXFMT SCR06 C KC SETON LR C KC GOTO M99 C KD CALL MIK01 C KD GOTO M00 C AYO IFLT 2000 C MOVEL ERR(1) MSG C GOTO M00 C END C AYO IFGT 2028 C MOVEL ERR(2) MSG C GOTO M00 C END C Z-ADD AYO PCAYO 4 0 C Z-ADD 1 B 2 0 C M01 TAG C MOVE *BLANKS MSG C MOVEA \'000000\' *IN(10) C MOVEA \'000000\' *IN(40) C EXSR RUT001 C MOVE *BLANKS MSG C *IN42 CABEQ *ON M99 C *IN43 CABEQ *ON M00 C *IN44 CABEQ *ON M01 C M99 TAG C SETON LR C** C** INICA LA RUTINA QUE HACE QUE SE PRSENTE UN SEMESTRE C** C RUT001 BEGSR C B IFLE 6 C B DOWLE 6 C SETOFF 717231 C Z-ADD B PCMES 2 0 C EXSR RUT100 C EXSR RUT007 C ADD 1 B C END C ELSE C Z-ADD 7 B C B DOWLE 12 C SETOFF 717231 C Z-ADD B PCMES 2 0 C EXSR RUT100 C EXSR RUT007 C ADD 1 B C END C Z-ADD 1 B 44 C END C ENDSR C* C* INICA LA PRESENTACION DE MES POR MES EN LA PANTALLA C* C RUT007 BEGSR C EXSR RUT009 C EXSR RUT010 C MMRUT07 TAG C 10 WRITE SCR04 C 10 WRITE SCR03 C 11 WRITE SCR13 C 12 WRITE SCR23 C 13 WRITE SCR33 C 14 WRITE SCR43 C *IN15 IFEQ *ON C MMMRUT07 TAG C EXFMT SCR53 C KC SETON LR42 C KC GOTO FRUT007 C KE SETON 43 C KE GOTO FRUT007 C *IN09 IFEQ *ON C B IFLE 6 C SUB 1 AYO C AYO IFLT 2000 C Z-ADD 2000 AYO C END C Z-ADD AYO PCAYO C Z-ADD 6 B 44 C GOTO FRUT007 C ELSE C GOTO FRUT007 C END C END C *IN08 IFEQ *ON C B IFLE 6 C ADD 1 B 44 C GOTO FRUT007 C ELSE C ADD 1 AYO C AYO IFGT 2028 C Z-ADD 2028 AYO C END C Z-ADD AYO PCAYO C GOTO FRUT007 C END C END C GOTO MMMRUT07 C END C FRUT007 ENDSR C** C** SE DETERMINA QUE PANTALLA DEL MES SE PRESENTARA C** C RUT009 BEGSR C B IFLE 6 C B COMP 1 10 C B COMP 2 11 C B COMP 3 12 C B COMP 4 13 C B COMP 5 14 C B COMP 6 15 C ELSE C B COMP 7 10 C B COMP 8 11 C B COMP 9 12 C B COMP 10 13 C B COMP 11 14 C B COMP 12 15 C END C MOVE *ON *IN50 C 10 WRITE SCR03 C 11 WRITE SCR13 C 12 WRITE SCR23 C 13 WRITE SCR33 C 14 WRITE SCR43 C 15 WRITE SCR53 C MOVE *OFF *IN50 C 10 Z-ADD *ZERO NUMREA 5 0 C 11 Z-ADD *ZERO NUMREB 5 0 C 12 Z-ADD *ZERO NUMREC 5 0 C 13 Z-ADD *ZERO NUMRED 5 0 C 14 Z-ADD *ZERO NUMREE 5 0 C 15 Z-ADD *ZERO NUMREF 5 0 C ENDSR C** C** CARGA LOS VALORES DEPENDIENDO DEL MES A PROYECTAR C** C RUT010 BEGSR C Z-ADD 1 DIAI 2 0 C DIAI DOWLE DIAF C A IFGT 7 C 10 ADD 1 NUMREA C 11 ADD 1 NUMREB C 12 ADD 1 NUMREC C 13 ADD 1 NUMRED C 14 ADD 1 NUMREE C 15 ADD 1 NUMREF C 10 WRITE SCR02 C 11 WRITE SCR12 C 12 WRITE SCR22 C 13 WRITE SCR32 C 14 WRITE SCR42 C 15 WRITE SCR52 C Z-ADD 1 A C Z-ADD *ZERO PDD01 C Z-ADD *ZERO PDD02 C Z-ADD *ZERO PDD03 C Z-ADD *ZERO PDD04 C Z-ADD *ZERO PDD05 C Z-ADD *ZERO PDD06 C Z-ADD *ZERO PDD07 C MOVEA \'0000000\' *IN(20) C END C *DAY IFEQ DIAI C EXSR RUT011 C ELSE C EXSR RUT012 C END C ADD 1 DIAI C ADD 1 A C END C A IFLE 7 C PDD07 ORGT *ZERO C 10 ADD 1 NUMREA C 11 ADD 1 NUMREB C 12 ADD 1 NUMREC C 13 ADD 1 NUMRED C 14 ADD 1 NUMREE C 15 ADD 1 NUMREF C 10 WRITE SCR02 C 11 WRITE SCR12 C 12 WRITE SCR22 C 13 WRITE SCR32 C 14 WRITE SCR42 C 15 WRITE SCR52 C END C ENDSR C* C* VERIFICA QUE DIA DE LA SEMANA SE PROYECTA DENTRO DEL MES C* C RUT011 BEGSR C A IFEQ 1 C SETON 20 C Z-ADD DIAI PDD01 C END C A IFEQ 2 C SETON 21 C Z-ADD DIAI PDD02 C END C A IFEQ 3 C SETON 22 C Z-ADD DIAI PDD03 C END C A IFEQ 4 C SETON 23 C Z-ADD DIAI PDD04 C END C A IFEQ 5 C SETON 24 C Z-ADD DIAI PDD05 C END C A IFEQ 6 C SETON 25 C Z-ADD DIAI PDD06 C END C A IFEQ 7 C SETON 26 C Z-ADD DIAI PDD07 C END C ENDSR C* C* ILUMINA EL DIA DE LA SEMANA EN QUE NOS ENCONTRAMOS C* C RUT012 BEGSR C A IFEQ 1 C Z-ADD DIAI PDD01 C END C A IFEQ 2 C Z-ADD DIAI PDD02 C END C A IFEQ 3 C Z-ADD DIAI PDD03 C END C A IFEQ 4 C Z-ADD DIAI PDD04 C END C A IFEQ 5 C Z-ADD DIAI PDD05 C END C A IFEQ 6 C Z-ADD DIAI PDD06 C END C A IFEQ 7 C Z-ADD DIAI PDD07 C END C ENDSR C* C* HACE LOS CALCULOS PARA DETERMINAR COMO SE COMPONE EL MES C* C RUT100 BEGSR C PCMES LOOKUP TABNUM TABMES 10 40 C MOVE TABMES NOMBRE C PCMES LOOKUP TABN TABD 2 0 40 C MOVE TABD DIAF 2 0 C PCAYO DIV 4 AYOBIS 3 0 C MVR RES 1 0 41 C *IN41 IFEQ *ON C PCMES IFEQ 2 C Z-ADD 29 DIAF C END C END C PCAYO LOOKUP TABAA TABBB 12 0 40 C Z-ADD TABBB MESES C Z-ADD M1 ARR(1) C Z-ADD M2 ARR(2) C Z-ADD M3 ARR(3) C Z-ADD M4 ARR(4) C Z-ADD M5 ARR(5) C Z-ADD M6 ARR(6) C Z-ADD M7 ARR(7) C Z-ADD M8 ARR(8) C Z-ADD M9 ARR(9) C Z-ADD M10 ARR(10) C Z-ADD M11 ARR(11) C Z-ADD M12 ARR(12) C ARR(PCMES) ADD 1 PM 2 0 C PM LOOKUP TABCC TABDD 1 0 40 C Z-ADD TABDD A 1 031 C Z-ADD *ZERO PDD01 C Z-ADD *ZERO PDD02 C Z-ADD *ZERO PDD03 C Z-ADD *ZERO PDD04 C Z-ADD *ZERO PDD05 C Z-ADD *ZERO PDD06 C Z-ADD *ZERO PDD07 C ENDSR C* ** ---------- TABNUM / TABMES -------------- 01 ENERO 02 FEBRERO 03 MARZO 04 ABRIL 05 MAYO 06 JUNIO 07 JULIO 08 AGOSTO 09SEPTIEMBRE 10 OCTUBRE 11NOVIEMBRE 12DICIEMBRE ** ------------ TABN / TABD ------------- 0131 0228 0331 0430 0531 0630 0731 0831 0930 1031 1130 1231 ** ---------- TABAA / TABBB ------------- 2000622503514624 2001144025036146 2002255136140250 2003366240251361 2004401462403513 2005622503514624 2006033614625035 2007144025036146 2008256240251361 2009400351362402 2010511462403513 2011622503514624 2012034025036146 2013255136140250 2014366240251361 2015400351362402 2016512503514624 2017033614625035 2018144025036146 2019255136140250 2020360351362402 2021511462403513 2022622503514524 2023033614625035 2024145136140250 2025366240251361 2026400351362402 2027511462403513 2028623614625035 ** ------------- TABCC / TABDD ------- 011022033044055066077 081092103114125136147 151162173184195206217 221232243254265276287 291302313324335346357 361372383394405416427 ** ------------- ERR ----------------- Error ** No tenemos Calendario antes del a¤o 2000...intente de nuevo por favor. Error ** Solo hasta el a¤o 2028 hay calendario...intentre de nuevo por favor. -*- Muestra Calendario por Semestres -*-