SLICE01 F***************************************************************** 940802 F* * 940802 F* Nombre del Programa . : Crea archivo de Trabajo de SPLF * 940802 F* Autor . . . . . . . . : Luis Carlos Sánchez * 940802 F* Fecha de Codificaciòn : 02/08/94 * 940802 F* Versiòn y Nivel . . . : 1.00 * 940802 F* Fecha de Versiòn . . : Misma * 940802 F* * 940802 F***************************************************************** 940802 FSLICE01 IP F 150 DISK 940802 FSLICE02 O E DISK A 940802 E F 10 1 940802 E MSG 1 1 40 940802 ISLICE01 SN 01 940802 I 35 40 VALOR 940802 I 2 11 FILE 940802 I 13 22 USER 940802 I 24 33 DEVICE 940802 I 35 44 USRDTA 940802 I 46 49 STATUS 940802 I 51 55 PAG000 940802 I 63 66 CPI000 940802 I 68 77 FORMS 940802 I 80 80 PRIOR 940802 I 83 84 D 940802 I 85 85 BARRA 030613 I 86 87 M 940802 I 89 90 A 940802 I 92 93 H1 940802 I 95 96 M1 940802 I 98 99 S1 940802 I 117 122 NUMSES 940805 I 106 115 JOB 940802 I 101 104 NUM000 940805 I 124 133 OUTQ 940802 I 135 144 LIBR 940802 I 124 133 OUTQB 940809 I 135 144 LIBRB 940809 I DS 940802 I 1 60DATEP 940802 I 1 20AÑO 940802 I 3 40MES 940802 I 5 60DIA 940802 I DS 940802 I 1 60HOURP 940802 I 1 20HH 940802 I 3 40MM 940802 I 5 60SS 940802 C BARRA IFEQ '/' 030613 C PRIOR COMP '0' 70 70 030702 C 70 PRIOR COMP '9' 7070 030702 C 70 MOVE PRIOR PRIORI 030702 C N70 MOVE 0 PRIORI 030702 C MOVE NUM000 NUM 940805 C MOVE D DIA 940802 C MOVE M MES 940802 C MOVE A AÑO 940802 C MOVE H1 HH 940802 C MOVE M1 MM 940802 C MOVE S1 SS 940802 C MOVEL*BLANKS OPEDES 940802 C CALL 'SLICE00' 030616 C PARM FILE 030616 C PARM TEXT 50 030616 C PARM STT 1 030616 C STT IFEQ '1' 030616 C MOVELMSG,1 OPEDES 940802 C ELSE 030616 C MOVELTEXT OPEDES 030616 C END 940802 C MOVE PAG000 PAGEP 940802 C MOVE CPI000 COPIES 940802 C WRITESLICE02F 940802 ** 940802 -> Sin referencia en ADAM (Vea MA110) <- 940802 ****************** Fin de datos ************************************************************* SLICE05 RPG F***************************************************************** 940803 F* * 940803 F* Nombre del Programa . : Muestra Spool por Usuarios * 940803 F* Autor . . . . . . . . : Luis Carlos Sánchez * 940803 F* Fecha de Codificaciòn : 03/08/94 * 940803 F* Versiòn y Nivel . . . : 1.00 * 940803 F* Fecha de Versiòn . . : Misma * 940803 F* * 940803 F***************************************************************** 940803 FSLICE02 IF E K DISK 940808 FSLICE05 CF E WORKSTN 940804 F WRECSFKSFILE FMTSF 940808 E SF 10 1 940809 E SS 10 1 940809 E CMM 50 1 940811 E MSG 1 1 50 940811 C* ============================================================== 880328 C* | B L O Q U E P R I N C I P A L D E L P R O G R A M A | 880328 C* ============================================================== 880328 C EXSR INICIO 940809 C *INLR DOWEQ'0' 880328 C *IN80 IFEQ '0' 880328 C EXSR RESTAU Restaura campos 940803 C END 940803 C WRITEFMT Despliega Formato 940808 C *IN40 IFEQ '0' 880329 C EXFMTFMTSFC Si existen datos 940808 C ELSE 880328 C EXFMTFMTSFN No existen datos 940808 C END 880328 C EXSR INDOFF Apaga indicadores 901123 C *IN03 IFEQ '1' Fin de Programa 901123 C MOVE '1' *INLR 880328 C ELSE 880328 C *IN05 IFEQ '1' Reinicializa 901123 C MOVE 'F05' WRET 940810 C MOVE '1' *INLR 940810 C ELSE 880328 C *IN12 IFEQ '1' Fin de Programa 901123 C MOVE '1' *INLR 880328 C ELSE 880328 C *IN13 IFEQ '1' Fin de Programa 940811 C MOVEAMSG,1 CMM 940811 C MOVEAUSRACT CMM,16 940812 C MOVEACMM CMD 50 940811 C Z-ADD50 LEN 155 940811 C CALL 'QCMDEXC' 940811 C PARM CMD 940811 C PARM LEN 940811 C ELSE 940811 C WUSER IFEQ *BLANKS 030509 C MOVE USR WUSER 030509 C ELSE 030509 C WSIGL IFEQ *BLANKS 030509 C MOVE ALL WSIGL 030509 C ELSE 030509 C WUSER IFNE BWUSER 030509 C WSIGL ORNE BWSIGL 030509 C EXSR CAMBIO 940809 C ELSE 940803 C *IN40 IFEQ '0' 880329 C EXSR OPCMUL Selecciona Opción 940808 C END Fin *IN40 940805 C END Fin 940805 C END Fin 030509 C END Fin 030509 C END End del F13 940811 C END End del F12 880328 C END End del F5 880328 C END End del F3 880328 C END End While 880328 C* ============================================================== 940809 C* | INICIO: Rutina inicial del Programa | 940809 C* ============================================================== 940809 C INICIO BEGSR 940809 C MOVEL'*ALL 'ALL 10 940809 C USR IFEQ ALL 940809 C MOVE '0' *IN31 Desproteg.User 030509 C MOVE *BLANKS ZUSER 10 940809 C MOVE ALL BWUSER 10 030509 C MOVE ALL WUSER 940809 C ELSE 940809 C MOVE '1' *IN31 Proteg.User 030509 C MOVE USR ZUSER 940809 C MOVE USR BWUSER 030509 C MOVE USR WUSER 940809 C END 940809 C MOVE *BLANKS ZSIGL 10 940809 C MOVE ALL BWSIGL 10 030509 C MOVE ALL WSIGL 10 940809 C EXSR INITSF Inicializa subarchivo 940809 C ENDSR 940809 C* ============================================================== 880328 C* | INITSF: Inicialización del subarchivo. | 940808 C* ============================================================== 880328 C INITSF BEGSR 940808 C MOVE '1' *IN55 940803 C MOVE *ZEROS WRECSF 50 940808 C WRITEFMTSFC Clear a subarchivo 940808 C MOVE '0' *IN55 880328 C WUSER IFEQ ALL 030509 C *LOVAL SETLLSLICE02 940803 C READ SLICE02 73 940803 C ELSE 940803 C WUSER SETLLSLICE02 030509 C WUSER READESLICE02 73 030509 C END 940803 C *IN73 IFEQ *OFF 030509 C MOVE USER USERX 030512 C MOVE USER USERZ 10 030512 C MOVE DATEP DESDEZ 60 030512 C MOVE DATEP HASTAZ 60 030512 C EXSR CNVFCH 030512 C MOVE FECHA DESDE 030512 C MOVE FECHA HASTA 030512 C MOVE *ZEROS WCANT Cant Files 030512 C EXSR SIGLAS 030512 C END 030509 C* 030509 C *IN73 DOWEQ'0' 880328 C USER IFNE USERZ 030509 C MOVE *BLANK WOPM 030512 C ADD 1 WRECSF 030512 C WRITEFMTSF Grabo SFL 030512 C MOVE USER USERZ 030512 C MOVE USERZ USERX 030509 C MOVE DATEP DESDEZ 030509 C MOVE DATEP HASTAZ 030509 C EXSR CNVFCH 030512 C MOVE FECHA DESDE 030512 C MOVE FECHA HASTA 030512 C MOVE *ZEROS WCANT Cant Files 030512 C OK IFEQ 'OK' 030512 C ADD 1 WCANT 030512 C END 030512 C ELSE 030509 C OK IFEQ 'OK' 030512 C ADD 1 WCANT 030512 C END 030512 C DATEP IFLT DESDEZ 030509 C MOVE DATEP DESDEZ 030512 C EXSR CNVFCH 030512 C MOVE FECHA DESDE 030509 C ELSE 030512 C DATEP IFGT HASTAZ 030509 C MOVE DATEP HASTAZ 030512 C EXSR CNVFCH 030512 C MOVE FECHA HASTA 030509 C ENDIF < HASTAZ 030512 C ENDIF > DESDEZ 030512 C ENDIF <> USER 030512 C* 030509 C* Lee pooximo Reg. 030509 C* 030509 C WUSER IFEQ ALL 030512 C READ SLICE02 73 940804 C ELSE 940803 C WUSER READESLICE02 73 030509 C END 940803 C *IN73 IFEQ *OFF 030509 C EXSR SIGLAS 030509 C ELSE 030512 C MOVE *BLANK WOPM 030512 C ADD 1 WRECSF 030512 C WRITEFMTSF Grabo SFL 030512 C END 030512 C ENDDO END *IN73 940809 C** 030509 C WRECSF IFEQ 0 940808 C MOVE '1' *IN40 880329 C ELSE 880329 C MOVE '0' *IN40 880329 C END 880329 C Z-ADD1 WPOSC 940808 C Z-ADD0 WRECSF 030616 C ENDSR 880328 C* ============================================================== 030509 C* | SIGLAS: Ruptura para comparar contenido de las Siglas | 030509 C* ============================================================== 030509 C SIGLAS BEGSR 030509 C MOVE 'OK' OK 2 030509 C WSIGL IFNE ALL 030512 C MOVEAFILE SF FILE 030509 C MOVEAWSIGL SS SIGLA 030509 C DO 10 @1 20 030509 C SS,@1 IFNE *BLANKS 030509 C SS,@1 ANDNESF,@1 030509 C MOVE *BLANKS OK 030509 C LEAVE 030509 C END 030509 C ENDDO 030509 C END END NE *BLANKS 030509 C ENDSR 030509 C* ============================================================== 030507 C* | CAMBIO: Rutina de cambios de criterios | 030507 C* ============================================================== 030507 C CAMBIO BEGSR 030507 C WUSER IFNE BWUSER 030509 C MOVE WUSER BWUSER 030509 C MOVE WUSER ZUSER 030507 C END 030507 C WSIGL IFNE BWSIGL 030509 C MOVE WSIGL BWSIGL 030509 C MOVE WSIGL ZSIGL 030507 C END 030507 C EXSR INITSF Inicializa subarchivo 030507 C ENDSR 030507 C* ============================================================== 940804 C* | CNVFCH: Conversión de Fecha a DD/MM/AA | 030512 C* ============================================================== 940804 C CNVFCH BEGSR 030512 C MOVE DATEP FECHA 60 030512 C MOVE FECHA DIA 20 030512 C MOVELFECHA AÑO 20 030512 C MOVE AÑO FECHA 030512 C MOVELDIA FECHA 030512 C ENDSR 940804 C* ============================================================== 880328 C* | RESTAU: Restaura campos de entrada y subarchivo | 940803 C* ============================================================== 880328 C RESTAU BEGSR 940803 C *IN40 IFEQ '0' 940808 C READCFMTSF 73 940808 C *IN73 DOWEQ'0' 940808 C MOVE *BLANKS WOPM 940808 C UPDATFMTSF 940808 C READCFMTSF 73 940808 C END 940808 C END 940808 C ENDSR 880328 C* ============================================================== 880328 C* | INDOFF: Apaga indicadores de error. | 880328 C* ============================================================== 880328 C INDOFF BEGSR 880328 C MOVEA'00000000'*IN,80 940808 C MOVEA'00' *IN,91 940808 C ENDSR 880328 C* ============================================================== 940803 C* | OPCMUL: Opción Múltiple | 030616 C* ============================================================== 940803 C OPCMUL BEGSR 940808 C Z-ADD0 WCONT 30 940808 C READCFMTSF 73 940808 C *IN73 DOWEQ'0' 940803 C MOVE WRECSF WPOSC 940808 C ADD 1 WCONT 940808 C WOPM IFNE *BLANK 940808 C WOPM IFEQ 'T' Selección 940812 C WOPM OREQ '12' Selección 940812 C MOVE USERX USERXX 10 940808 C CALL 'SLICE051' 940808 C PARM USR 940808 C PARM USERXX 940808 C PARM WSIGL 940809 C PARM ' ' WRET 940812 C WRET IFEQ 'F20' 940812 C MOVE '1' *INLR 940812 C END 940812 C END End Selección 940803 C END End Wsel<>Blancos 940803 C MOVE *BLANKS WOPM 940808 C UPDATFMTSF 940808 C WOPM IFEQ *BLANK 940808 C READCFMTSF 73 940808 C ELSE 940803 C MOVE '1' *IN73 940803 C Z-ADDWRECSF WPOSC 030616 C END End WOPM 940803 C END End While 940803 C ENDSR 030616 C* ============================================================== 880328 C* | PARAM: Rutina de armado de grupos de parámetros. | 880328 C* ============================================================== 880328 C PARAM BEGSR 880328 C *ENTRY PLIST 880328 C PARM USR 10 940803 C PARM WRET 3 940810 C PARM USRACT 10 940812 C ENDSR 880328 ** 940811 WRKSPLF SELECT( ) 940811 ************* Fin de Datos ******** SLICE05 DDS A*%%TS SD 20030512 090625 SANLUIS REL-V4R4M0 5769-PW1 030512 A* 91/05/22 07:24:44 SRG REL-R02M00 5728-PW1 910522 A*%%EC 030512 A DSPSIZ(24 80 *DS3) 030512 A REF(*LIBL/SLFREF) 030512 A PRINT 030512 A HLPRCD(SLICE05 *LIBL/SLICEHLPP) 030512 A CF03(03 'F03 para Fin') 030512 A CF05(05 'F05 para Refresh') 030512 A CF12(12 'F12 Regresa') 030512 A CF13(13 'F13 Spool') 030512 A HELP 030512 A R FMTSF SFL 030512 A*%%TS SD 20030512 090625 SANLUIS REL-V4R4M0 5769-PW1 030512 A WOPM 2A B 9 5VALUES(' ' 'T' '12') 030512 A USERX 10A O 9 10COLOR(GRN) 030512 A DESDE 6Y 0O 9 26COLOR(GRN) 030512 A EDTCDE(Y) 030512 A HASTA 6Y 0O 9 42COLOR(GRN) 030512 A EDTCDE(Y) 030512 A WCANT 4Y 0O 9 57EDTCDE(Z) 030512 A DSPATR(HI) 030512 A R FMTSFC SFLCTL(FMTSF) 030512 A*%%TS SD 20030512 090625 SANLUIS REL-V4R4M0 5769-PW1 030512 A SFLSIZ(0013) 030512 A SFLPAG(0012) 030512 A KEEP 030512 A OVERLAY 030512 A N55 SFLDSP 030512 A N55 SFLDSPCTL 030512 A 55 SFLCLR 030512 A N55 SFLEND 030512 A WPOSC 4S 0H SFLRCDNBR(CURSOR) 030512 A 1 3'12=Trabajar' 030512 A DSPATR(HI) 030512 A COLOR(WHT) 030512 A 2 1' - 030512 A - 030512 A ' 030512 A DSPATR(UL) 030512 A COLOR(BLU) 030512 A 3 27'Resumen de Reportes por Usuario' 030512 A DSPATR(HI) 030512 A 7 4'Opc.' 030512 A DSPATR(HI) 030512 A 7 11'Usuario' 030512 A DSPATR(HI) 030512 A 7 23'Imp.M.Antigua' 030512 A DSPATR(HI) 030512 A 7 39'Imp.M.Reciente' 030512 A DSPATR(HI) 030512 A 5 3'Usuario:' 030512 A WUSER 10A B 5 12DSPATR(HI) 030512 A 31 DSPATR(PR) 030512 A 5 23'Nombre ó *ALL' 030512 A 5 38'Siglas Spool-File:' 030512 A WSIGL 10A B 5 57DSPATR(HI) 030512 A 5 68'Generico,*ALL' 030512 A 7 56'Archivos' 030512 A DSPATR(HI) 030512 A* 91/01/04 01:24:57 MLV REL-R02M00 5728-PW1 910104 A R FMTSFN 030512 A*%%TS SD 20030512 090625 SANLUIS REL-V4R4M0 5769-PW1 030512 A KEEP 030512 A OVERLAY 030512 A 2 1' - 030512 A - 030512 A ' 030512 A DSPATR(UL) 030512 A COLOR(BLU) 030512 A 3 27'Resumen de Reportes por Usuario' 030512 A DSPATR(HI) 030512 A 5 3'Usuario:' 030512 A 7 4'Opc.' 030512 A DSPATR(HI) 030512 A 7 11'Usuario' 030512 A DSPATR(HI) 030512 A 7 23'Imp.M.Antigua' 030512 A DSPATR(HI) 030512 A 7 39'Imp.M.Reciente' 030512 A DSPATR(HI) 030512 A WUSER 10A B 5 12DSPATR(HI) 030512 A 31 DSPATR(PR) 030512 A WSIGL 10A B 5 57DSPATR(HI) 030512 A 9 2'(No existen registros bajo el crit- 030512 A erio arriba especificado)' 030512 A 5 38'Siglas Spool-File:' 030512 A 5 23'Nombre ó *ALL' 030512 A 5 68'Generico,*ALL' 030512 A 1 3'12=Trabajar' 030512 A DSPATR(HI) 030512 A 7 56'Archivos' 030512 A DSPATR(HI) 030512 A* 89/12/05 13:10:26 NMO REL-R01M02 5728-PW1 891205 A R FMT 940812 A*%%TS SD 19940812 094635 SANLUIS REL-V2R2M0 5738-PW1 940812 A 22 1' - 940812 A - 940812 A ' 940812 A DSPATR(UL) 940812 A COLOR(BLU) 940812 A 23 2' Ayuda F3=Fin F5=Renueva - 940812 A F12=Regresa' 940812 A COLOR(BLU) 940812 A 23 54'F13=Spool' 940812 ************** Fin de datos ************************************************************ SLICE051 CL PGM 940802 CHGDTAARA DTAARA(*LDA (1022 3)) VALUE('ICE') 940802 ENDPGM 940802 *************** Fin de Datos *********** **** OJO El programa SLICECHK, corresponde a un RPG el cua es utilizado para validar que este módulo no fuera Ilegal, ya que en un tiempo lo pense cormercializar con muchas otras bondades, ya no. **************** SLICE051 RPG F***************************************************************** 940803 F* * 940803 F* Nombre del Programa . : Muestra Spool por Usuarios (Detalle)* 940808 F* Autor . . . . . . . . : Luis Carlos Sánchez * 940803 F* Fecha de Codificaciòn : 08/08/94 * 940808 F* Versiòn y Nivel . . . : 1.00 * 940803 F* Fecha de Versiòn . . : Misma * 940803 F* * 940803 F***************************************************************** 940803 FSLICE02 IF E K DISK 940809 FSLICE03 IF E K DISK 940809 FSLICE051CF E WORKSTN 940808 F WRECSFKSFILE FMTSF 940808 E SF 10 1 940809 E SS 10 1 940809 E CMM 50 1 940811 E MSG 1 3 50 940829 C* ============================================================== 880328 C* | B L O Q U E P R I N C I P A L D E L P R O G R A M A | 880328 C* ============================================================== 880328 C EXSR INICIO 940809 C *INLR DOWEQ'0' 880328 C *IN80 IFEQ '0' 880328 C EXSR RESTAU Restaura campos 940803 C END 940803 C WRITEFMT Despliega Formato 940808 C *IN40 IFEQ '0' 880329 C EXFMTFMTSFC Si existen datos 940808 C ELSE 880328 C EXFMTFMTSFN No existen datos 940808 C END 880328 C EXSR INDOFF Apaga indicadores 901123 C *IN03 IFEQ '1' Fin de Programa 901123 C MOVE '1' *INLR 880328 C ELSE 880328 C *IN05 IFEQ '1' Reinicializa 901123 C EXSR INITSF Inicializa subarchivo 940808 C ELSE 880328 C *IN12 IFEQ '1' Fin de Programa 901123 C MOVE '1' *INLR 880328 C ELSE 880328 C *IN13 IFEQ '1' Fin de Programa 940811 C MOVEAMSG,2 CMM 940811 C MOVEAWUSER CMM,16 940811 C MOVEACMM CMD 50 940811 C Z-ADD50 LEN 155 940811 C CALL 'QCMDEXC' 940811 C PARM CMD 940811 C PARM LEN 940811 C ELSE 940811 C WACCES IFNE ZACCES 940829 C WACCES IFEQ *BLANKS 940829 C ZACCES IFEQ '*SLICE ' 940829 C MOVEL'*SYSTEM' WACCES 940829 C MOVEL'*SYSTEM' ZACCES 940829 C ELSE 940829 C MOVEL'*SLICE ' WACCES 940829 C MOVEL'*SLICE ' ZACCES 940829 C END 940829 C ELSE 940829 C MOVE WACCES ZACCES 940829 C END 940829 C ELSE 940829 C WUSER IFNE XUSER 940809 C WSIGL ORNE XSIGL 940809 C EXSR CAMBIO 940809 C ELSE 940803 C *IN40 IFEQ '0' 880329 C EXSR OPCMUL Selecciona Opción 940808 C END Fin *IN40 940808 C END Fin 940805 C END Fin 940829 C END End del F13 940811 C END End del F12 880328 C END End del F5 880328 C END End del F3 880328 C END End While 880328 C* ============================================================== 940809 C* | INICIO: Rutina inicial del Programa | 940809 C* ============================================================== 940809 C INICIO BEGSR 940809 C *NAMVAR DEFN SLICEACC ACCES 7 940829 C *NAMVAR DEFN SLICESAV PREFIJ 6 941107 C IN *NAMVAR 941114 C MOVE ACCES WACCES 940829 C MOVE ACCES ZACCES 7 940829 C MOVELMSG,3 F05 20 940829 C MOVEL'*ALL 'ALL 10 940809 C USR IFEQ ALL 940809 C MOVE '0' *IN31 940809 C ELSE 940809 C MOVE '1' *IN31 940809 C END 940809 C MOVE WU WUSER 940809 C MOVE WU ZUSER 10 940809 C MOVE WU XUSER 10 940809 C MOVE WS WSIGL 940809 C WSIGL IFEQ ALL 940809 C MOVE *BLANKS ZSIGL 10 940809 C ELSE 940809 C MOVE WSIGL ZSIGL 10 940809 C END 940809 C MOVE WSIGL XSIGL 10 940809 C EXSR INITSF Inicializa subarchivo 940809 C ENDSR 940809 C* ============================================================== 940809 C* | CAMBIO: Rutina de cambios de criterios | 940809 C* ============================================================== 940809 C CAMBIO BEGSR 940809 C WUSER IFNE XUSER 940809 C WUSER IFEQ *BLANKS 940809 C MOVE WU WUSER 940809 C END 941114 C MOVE WUSER XUSER 940809 C MOVE WUSER ZUSER 940809 C END 940809 C WSIGL IFNE XSIGL 940809 C WSIGL IFEQ *BLANKS 940809 C MOVE ALL WSIGL 940809 C ELSE 940809 C MOVE WSIGL XSIGL 940809 C MOVE WSIGL ZSIGL 940809 C END 940809 C END 940809 C EXSR INITSF Inicializa subarchivo 941115 C ENDSR 940809 C* ============================================================== 940803 C* | INITSF: Inicialización del subarchivo | 940808 C* ============================================================== 940803 C INITSF BEGSR 940808 C MOVE '1' *IN55 940803 C MOVE *ZEROS WRECSF 50 940808 C WRITEFMTSFC Clear a subarchivo 940808 C MOVE '0' *IN55 940803 C WUSER CHAINSLICE02 73 941114 C *IN73 DOWEQ'0' 940803 C EXSR SIGLAS 940809 C OK IFEQ 'OK' 940809 C MOVE *BLANK WOPM 940808 C ADD 1 WRECSF 940808 C KSLICE CHAINSLICE03 70 940805 C *IN70 IFEQ '0' 940805 C MOVELCOMNTP WCOMNT 940805 C ELSE 940805 C MOVE *BLANKS WCOMNT 940808 C END 940805 C MOVE HOURP WHORA 940804 C MOVE DATEP WFECHA 940804 C MOVE DATEP DIA 20 940808 C MOVELDATEP AÑO 20 940808 C MOVE AÑO WFECHA 940804 C MOVELDIA WFECHA 940804 C MOVE OUTQ WCOLA 940804 C MOVE PAGEP WPAG 030701 C MOVELOUTQ @X 6 940805 C WRITEFMTSF 940808 C END END OK 940809 C WUSER READESLICE02 73 940808 C END 940803 C WRECSF IFEQ 0 940808 C MOVE '1' *IN40 940808 C ELSE 940803 C MOVE '0' *IN40 940808 C END 940803 C Z-ADD1 WPOSC 940808 C ENDSR 940803 C* ============================================================== 940809 C* | SIGLAS: Ruptura para comparar contenido de las Siglas | 940809 C* ============================================================== 940809 C SIGLAS BEGSR 940809 C MOVE 'OK' OK 2 940809 C WSIGL IFNE ALL 941114 C MOVEAFILE SF 940809 C MOVEAWSIGL SS 941114 C DO 10 @1 20 940809 C SS,@1 IFNE *BLANKS 940809 C SS,@1 ANDNESF,@1 940809 C MOVE *BLANKS OK 940809 C LEAVE 940809 C END 940809 C ENDDO 940809 C END END NE *BLANKS 940809 C ENDSR 940809 C* ============================================================== 880328 C* | RESTAU: Restaura campos de entrada y subarchivo | 940803 C* ============================================================== 880328 C RESTAU BEGSR 940803 C *IN40 IFEQ '0' 940808 C READCFMTSF 73 940808 C *IN73 DOWEQ'0' 940808 C MOVE *BLANKS WOPM 940808 C UPDATFMTSF 940808 C READCFMTSF 73 940808 C END 940808 C END 940808 C ENDSR 880328 C* ============================================================== 880328 C* | INDOFF: Apaga indicadores de error. | 880328 C* ============================================================== 880328 C INDOFF BEGSR 880328 C MOVEA'000' *IN,80 941108 C ENDSR 880328 C* ============================================================== 880328 C* | OPCMUL: Opción Múltiple 2 | 940808 C* ============================================================== 880328 C OPCMUL BEGSR 940808 C Z-ADD0 WCONT 30 940808 C READCFMTSF 73 940808 C *IN73 DOWEQ'0' 880328 C MOVE WRECSF WPOSC 940808 C ADD 1 WCONT 940808 C WOPM IFNE *BLANK 940808 C WOPM IFEQ 'A' Atributos 940808 C WOPM OREQ ' A' 940812 C WOPM OREQ '2' 940812 C WOPM OREQ ' 2' 940812 C WOPM OREQ '02' 940812 C MOVE 'SLICE05A'WPROG 8 940804 C EXSR LLAMA 940805 C WERR IFEQ 0 940829 C MOVE F05 OPEDES 940829 C MOVE '1' *IN50 940829 C END 940829 C ELSE 940803 C WOPM IFEQ 'B' Bajas 940808 C WOPM OREQ ' B' 940812 C WOPM OREQ '4' 940812 C WOPM OREQ ' 4' 940812 C WOPM OREQ '04' 940812 C MOVE 'SLICE05B'WPROG 8 940804 C EXSR LLAMA 880328 C WERR IFEQ 0 940808 C MOVELMSG,1 OPEDES 940808 C MOVE *BLANKS WCOMNT 940808 C MOVE '1' *IN50 940808 C END 940808 C ELSE 880328 C WOPM IFEQ 'C' Comentarios 940808 C WOPM OREQ ' C' 940812 C WOPM OREQ '13' 940812 C MOVE 'SLICE05C'WPROG 8 940804 C EXSR LLAMA 880328 C ELSE 880328 C WOPM IFEQ 'I' Impresión 940808 C WOPM OREQ ' I' 940812 C WOPM OREQ '6' 940812 C WOPM OREQ ' 6' 940812 C WOPM OREQ '06' 940812 C MOVE 'SLICE05I'WPROG 8 940804 C EXSR LLAMA 890504 C ELSE 940804 C WOPM IFEQ 'V' Visualiza 940808 C WOPM OREQ ' V' 940812 C WOPM OREQ '5' 940812 C WOPM OREQ ' 5' 940812 C WOPM OREQ '05' 940812 C MOVE 'SLICE05V'WPROG 8 940804 C EXSR LLAMA 940804 C ELSE 940805 C WOPM IFEQ 'S' Salvar 940808 C WOPM OREQ ' S' 940812 C WOPM OREQ '9' 940812 C WOPM OREQ ' 9' 940812 C WOPM OREQ '09' 940812 C EXSR VALIDA 941108 C *IN80 IFEQ '0' 941108 C MOVE 'SLICE05S'WPROG 8 940805 C EXSR LLAMA 940805 C WERR IFEQ 0 940829 C MOVE F05 OPEDES 940829 C MOVE '1' *IN50 940829 C END 940829 C END 941108 C ELSE 940809 C WOPM IFEQ 'R' Restaura 940809 C WOPM OREQ ' R' 940812 C WOPM OREQ '10' 940812 C EXSR VALIDA 941108 C *IN80 IFEQ '0' 941108 C MOVE 'SLICE05R'WPROG 8 940809 C EXSR LLAMA 940809 C WERR IFEQ 0 940829 C MOVE F05 OPEDES 940829 C MOVE '1' *IN50 940829 C END 940829 C END End *IN80 941108 C END End Restaura 940809 C END End Salvar a 940805 C END End Visualiza 940804 C END End Impresión 940804 C END End Comentarios 940803 C END End Bajas 940803 C END End Atributos 940803 C END End Wsel<>Blancos 880328 C MOVE *BLANKS WOPM 940808 C UPDATFMTSF 940808 C MOVE '0' *IN50 940805 C *IN80 IFEQ '1' 880328 C MOVE WRECSF WPOSC 940808 C MOVE '1' *IN73 880328 C ELSE 880328 C READCFMTSF 73 940808 C END End del 80 880328 C END End While 880328 C ENDSR 880328 C* ============================================================== 941107 C* | VALIDA: Valída situación del archivo en spool | 941107 C* ============================================================== 941107 C VALIDA BEGSR 941107 C WOPM IFEQ 'S' Salvar 941108 C WOPM OREQ ' S' 941108 C WOPM OREQ '9' 941108 C WOPM OREQ ' 9' 941108 C WOPM OREQ '09' 941108 C MOVELWCOLA W6 6 941108 C PREFIJ IFEQ W6 941108 C MOVE '1' *IN80 941108 C MOVE '1' *IN82 941108 C END 941108 C ELSE 941108 C WOPM IFEQ 'R' Restaura 941108 C WOPM OREQ ' R' 941108 C WOPM OREQ '10' 941108 C MOVELWCOLA W6 6 941108 C PREFIJ IFNE W6 941108 C MOVE '1' *IN80 941108 C MOVE '1' *IN82 941108 C END 941108 C END 941108 C END 941108 C ENDSR 941108 C* ============================================================== 880328 C* | LLAMA: Llama a programas de ejecución, según WPROG | 880328 C* ============================================================== 880328 C LLAMA BEGSR 880328 C MOVE *BLANKS WPGM 10 940829 C MOVELWPROG WPGM 940829 C WACCES IFEQ '*SYSTEM' 940829 C MOVE '2 ' WPGM 940829 C END 940829 C CALL WPGM WPAR1 940829 C FREE WPGM 940829 C WERR IFEQ 1 940805 C MOVEA'11' *IN,80 940805 C END 940805 C MOVE *BLANKS WRET 940812 C ENDSR 880328 C* ============================================================== 880328 C* | PARAM: Rutina de armado de grupos de parámetros. | 880328 C* ============================================================== 880328 C PARAM BEGSR 880328 C *ENTRY PLIST 880328 C PARM USR 10 User ó *ALL 941114 C PARM WU 10 Usuario Actual 941114 C PARM WS 10 Siglas (Criter.) 941114 C PARM WRET 3 940812 C KSLICE KLIST 940805 C KFLD WUSER 940808 C KFLD FILE 940805 C KFLD JOB 940805 C KFLD NUMSES 940805 C KFLD NUM 940805 C WPAR1 PLIST 940804 C PARM WUSER 940808 C PARM FILE 940804 C PARM JOB 940804 C PARM NUMSES 940805 C PARM NUM 940805 C PARM ' ' WRET 3 940812 C PARM WERR 10 940804 C ENDSR 880328 ** 940805 --*-* Archivo fué Suprimido (Use F5=Renovar) *-*-- 940829 WRKSPLF SELECT( ) 940811 (Use F5=Renovar) 940829 ****************** Fin de datos *************** SLICE051 DDS A*%%TS SD 20030701 134348 SANLUIS REL-V4R4M0 5769-PW1 030701 A* 91/05/22 07:24:44 SRG REL-R02M00 5728-PW1 910522 A*%%EC 030701 A DSPSIZ(24 80 *DS3) 030701 A REF(*LIBL/SLFREF) 030701 A PRINT 030701 A HLPRCD(SLICE051 *LIBL/SLICEHLPP) 030701 A CF03(03 'F03 para Fin') 030701 A CF05(05 'F05 para Refresh') 030701 A CF12(12 'F12 Regresa') 030701 A N31 CF13(13 'F13 Salida de Mandatos') 030701 A HELP 030701 A R FMTSF SFL 030701 A*%%TS SD 20030701 134348 SANLUIS REL-V4R4M0 5769-PW1 030701 A WOPM 2A B 9 2DSPATR(HI) 030701 A 50 DSPATR(PR) 030701 A N50 DSPATR(PC) 030701 A VALUES(' ' 'A' 'B' 'I' 'V' '2' '02'- 030701 A '4' '04' '5' '05' '6' '06' ' 2' ' - 030701 A 4' ' 5' ' 6') 030701 A FILE 10A O 9 5COLOR(GRN) 030701 A WFECHA 6Y 0O 9 67COLOR(GRN) 030701 A EDTCDE(Y) 030701 A OPEDES R O 9 16REFFLD(MAFREF/OPEDES *LIBL/MAFREF) 030701 A 50 DSPATR(BL) 030701 A WCOMNT R O 10 21REFFLD(MAFREF/OPEDES *LIBL/MAFREF) 030701 A WHORA 6Y 0O 10 72COLOR(GRN) 030701 A EDTWRD(' : . ') 030701 A 10 4'Cola:' 030701 A WCOLA 10A O 10 10COLOR(GRN) 030701 A DSPATR(UL) 030701 A JOB R H 030701 A NUMSES R H 030701 A NUM R H 030701 A WPAG 4Y 0O 9 76DSPATR(HI) 030701 A EDTWRD(' 0 ') 030701 A R FMTSFC SFLCTL(FMTSF) 030701 A*%%TS SD 20030701 134348 SANLUIS REL-V4R4M0 5769-PW1 030701 A SFLSIZ(0007) 030701 A SFLPAG(0006) 030701 A KEEP 030701 A OVERLAY 030701 A N55 SFLDSP 030701 A N55 SFLDSPCTL 030701 A 55 SFLCLR 030701 A N55 SFLEND 030701 A SFLDROP(CF11) 030701 A 80 81 SFLMSGID(ICE0001 *LIBL/QMSGSL) 030701 A 80 82 SFLMSGID(ICE0010 *LIBL/QMSGSL) 030701 A WPOSC 4S 0H SFLRCDNBR(CURSOR) 030701 A 1 16'4=Baja' 030701 A DSPATR(HI) 030701 A COLOR(WHT) 030701 A 3 27'Detalle de Reportes por Usuario' 030701 A DSPATR(HI) 030701 A 8 1'Opc.' 030701 A DSPATR(HI) 030701 A 8 6'Archivo' 030701 A DSPATR(HI) 030701 A 6 3'Usuario:' 030701 A WUSER 10A B 6 12DSPATR(HI) 030701 A 31 DSPATR(PR) 030701 A DSPATR(UL) 030701 A 6 23'Nombre/Blanco' 030701 A 6 38'Busqueda x Siglas:' 030701 A WSIGL 10A B 6 57DSPATR(HI) 030701 A 6 68'Generico,*ALL' 030701 A 8 22'Decripción y/o Comentarios' 030701 A DSPATR(HI) 030701 A 8 66'Creación' 030701 A DSPATR(HI) 030701 A 1 2'2=Atrib_Camb' 030701 A DSPATR(HI) 030701 A 1 37'6=Impresión' 030701 A DSPATR(HI) 030701 A 1 24'5=Visualiza' 030701 A DSPATR(HI) 030701 A 5 3'Acceso.:' 030701 A WACCES 7A B 5 12DSPATR(HI) 030701 A VALUES(' ' '*SLICE ' '*SYSTEM') 030701 A 5 20'*SLICE ó *SYSTEM' 030701 A 2 1' - 030701 A - 030701 A ' 030701 A DSPATR(UL) 030701 A 8 76'Pag.' 030701 A DSPATR(HI) 030701 A R FMTSFN 030701 A*%%TS SD 20030701 134348 SANLUIS REL-V4R4M0 5769-PW1 030701 A KEEP 030701 A OVERLAY 030701 A 3 27'Detalle de Reportes por Usuario' 030701 A DSPATR(HI) 030701 A 6 3'Usuario:' 030701 A 6 38'Busqueda x Siglas:' 030701 A WUSER 10A B 6 12DSPATR(HI) 030701 A WSIGL 10A B 6 57DSPATR(HI) 030701 A 6 23'Nombre/Blanco' 030701 A 6 68'Generico,*ALL' 030701 A 8 1'Opc.' 030701 A DSPATR(HI) 030701 A 8 6'Archivo' 030701 A DSPATR(HI) 030701 A 10 2'(No existen reportes bajo el crite- 030701 A rio arriba especificado)' 030701 A 8 22'Decripción y/o Comentarios' 030701 A DSPATR(HI) 030701 A 8 66'Creación' 030701 A DSPATR(HI) 030701 A 1 2'2=Atrib_Camb' 030701 A DSPATR(HI) 030701 A 1 16'4=Baja' 030701 A DSPATR(HI) 030701 A 1 24'5=Visualiza' 030701 A DSPATR(HI) 030701 A 1 37'6=Impresión' 030701 A DSPATR(HI) 030701 A 5 3'Acceso.:' 030701 A WACCES 7A B 5 12DSPATR(HI) 030701 A VALUES(' ' '*SLICE' '*SYSTEM') 030701 A 5 20'*SLICE ó *SYSTEM' 030701 A 2 1' - 030701 A - 030701 A ' 030701 A DSPATR(UL) 030701 A 8 76'Pag.' 030701 A DSPATR(HI) 030701 A R FMT 940812 A*%%TS SD 19940812 143428 SANLUIS REL-V2R2M0 5738-PW1 940812 A 22 1' - 940812 A - 940812 A ' 940812 A DSPATR(UL) 940812 A COLOR(BLU) 940812 A 23 2' Ayuda F3=Fin F5=Renueva F- 940812 A 6=Alta F11=Doblar F12=Regresa' 940812 A COLOR(BLU) 940812 A N31 23 72'F13=Spool' 940812 ************** Fin de datos ****************************************