Yo tengo estos programas muy simples pero que te pueden ayudar, es un subfile que te muestra tu spool y te da la opcion de que selecciones el spool para pasarlo a un archivo fisico, ya sea reemplazando lo que tenia o agregandolo, checalo a lo mejor te puede servir
Saludos Gerardo Santillana IT Department Delphi Mechatronic Systems Phone USA (956) 554 5832 Phone MX 01868 8128163 x.5832 -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Juan Sent: Friday, October 14, 2005 11:37 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; forum as400 Subject: transferir un spool al pc Hola compañeros de foro: Les quisiera pedir alguna sugerencia, opinión o consejo. Dentro de la compañía donde trabajo tenemos un as400 hasta la versión 4.5 Le demanda de usuarios de transferir archivos Spool a exell ha aumentado considerablemente , el problema que tengo es que la compañía no quiere gastar en algún producto del mercado, y nos pide que automaticemos dichos procesos en casa, es decir con las pocas herramientas de trabajo , lo que nosotros hacemos normalmente a mano es : copiamos el spool a una tabla física de as400 , esto es a través de un cl en donde le pedimos al usuario que vea el numero el trabajo , el numero de spool etc.(Los datos del spool a copiar hacia la tabla física), una vez copiado en la tabla física lo transferimos vía ftp del 400 hacia la pc como un tipo de archivo file.TXT (de texto) posteriormente lo llaman por Excel y lo convierten ya que no tenemos Client Access , tenemos un emulador que se llama RALLY en donde trae una utilidad de transferencias de as/400 hacia la pc. La cual las personas que hacen diariamente esto les lleva un poco de tiempo , a lo cual nos piden que sea de manera mas automática , tal vez la transferencia del emulador este bien , pero lo que yo quisiera hacer es una sesión(un subfile) en donde me muestre los spool de cada usuario (como el comando wrksplf) y cuando seleccionen uno en especial , automáticamente recupero los parámetros de ese spool, pero no encuentro la manera de saber en donde se almacenas dichos spool , con esto podría preparar el CPYSPLF ya con la información seleccionada del subile y transferirlo automáticamente. He investigado sobre las API's y parece que existen algunas para lo que necesito hacer pero no me queda muy claro , alguien me podría echar la mano Saludos y gracias de antemano __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400 **************************************************************************************** Note: If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. ****************************************************************************************
A*%%TS SD 20020408 131500 SANTILLANG REL-V5R1M0 5722-WDS
A*****************************************************************
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/SSADD)
A ALTPAGEUP(CF07)
A ALTPAGEDWN(CF08)
A**************************************************************************
A R SCR1
A*%%TS SD 20020408 131500 SANTILLANG REL-V5R1M0 5722-WDS
A CF03(03)
A CF12(12)
A BLINK
A N02 LOCK
A OVERLAY
A PUTOVR
A 1 72DATE
A EDTCDE(Y)
A 2 72TIME
A 5 1'2=Transf-Reemplaza'
A DSPATR(BL)
A COLOR(BLU)
A 5 41'5=Desplegar'
A COLOR(BLU)
A 7 1'Opc'
A DSPATR(HI)
A 1 60USER
A 1 25'Work With All Spooled Files'
A DSPATR(HI)
A 1 2'SPOOLFM'
A 7 5'File'
A DSPATR(HI)
A 7 17'User'
A DSPATR(HI)
A 7 29'Sts'
A DSPATR(HI)
A 7 35'Pages'
A DSPATR(HI)
A 6 35'Total'
A DSPATR(HI)
A 6 42'File'
A DSPATR(HI)
A 7 42'Nbr'
A DSPATR(HI)
A 7 49'Job'
A DSPATR(HI)
A 7 60'Number'
A DSPATR(HI)
A 7 68'Date'
A DSPATR(HI)
A 6 68'Creation'
A DSPATR(HI)
A 5 55'8=Imprimir'
A COLOR(BLU)
A 5 22'3=Transf-Agrega'
A DSPATR(BL)
A COLOR(BLU)
A R SCR1S SFL
A*%%TS SD 20020408 131500 SANTILLANG REL-V5R1M0 5722-WDS
A OPC 1Y 0B 9 2EDTCDE(Z)
A 31 DSPATR(RI)
A N80 DSPATR(UL)
A 31 DSPATR(PC)
A 80 DSPATR(PR)
A SFILE 10A O 9 5
A SUSER 10A O 9 17
A SSTS 3A O 9 29
A STOTP 6A O 9 34
A SFILN 6A O 9 42
A SJOB 10A O 9 49
A SNUMB 6A O 9 60
A SCRTD 8A O 9 68
A STS 1A O 9 78
A R SCR1C SFLCTL(SCR1S)
A*%%TS SD 20000712 083440 D999CD3 REL-V4R2M0 5769-PW1
A CF12(12)
A OVERLAY
A PUTOVR
A 09 SFLDSP
A 09 SFLDSPCTL
A 04 SFLCLR
A 51 SFLEND
A SFLSIZ(0013)
A SFLPAG(0012)
A 72 SFLMSG('Invalid Option' 72)
A 23 2'Intro=Continuar'
A 23 20'F3=Salir'
A RRN1 4S 0H
A 23 32'F7=Regresar'
A 23 47'F8=Avanzar'
A R SCRW
A*%%TS SD 20000920 150738 D999CD3 REL-V4R2M0 5769-PW1
A CF12(12 'Cancel')
A WINDOW(8 26 5 35)
A WDWBORDER((*COLOR BLU) (*DSPATR RI)-
A (*CHAR ' '))
A 1 2'Teclee el nombre de la impresora'
A WPRINT 10 B 2 11
A 4 2'F12=Cancelar'
F*---------------------------------------------------------------*
F* EATON CONDURA *
F* *
F* PROGRAMA......: SPOOL1 *
F* AUTOR.........: GERARDO SANTILLANA C *
F* FECHA.........:11 DE JULIO DEL 2000 *
F* *
F*---------------------------------------------------------------*
FFSPOOL IF E K DISK
FSPOOLFM CF E WORKSTN
F RRN1 KSFILE SCR1S
C*----------------------------------------------------------------
C* PARAMETROS DE SALIDA
C*----------------------------------------------------------------
C LISTP PLIST
C PARM SFILE
C PARM SNUMB
C PARM SFILN
C PARM SJOB
C PARM OPC
C*---------------------------------------------------------------*
C* BLOQUE PRINCIPAL
C*---------------------------------------------------------------*
C* EXSR R100
C EXSR R101
C EXSR R102
C *IN03 DOWEQ'0'
C *IN12 ANDEQ'0'
C WRITESCR1C
C EXFMTSCR1
C EXSR R103
C ENDDO
C*
C MOVE *ON *INLR
C*---------------------------------------------------------------*
C* R101 INICIALIZA EL SUBFILE
C*---------------------------------------------------------------*
C R101 BEGSR
C*
C MOVE '1' *IN04
C MOVE '1' *IN09
C WRITESCR1C
C MOVE '0' *IN04
C Z-ADD0 RRN1
C Z-ADD0 NREC 40
C ENDSR
C*---------------------------------------------------------------*
C* R102 LLENA EL SUBFILE
C*---------------------------------------------------------------*
C R102 BEGSR
C*
C MOVE '0' *IN40
C *LOVAL SETLLFSPOOL
C *IN40 DOWEQ'0'
C READ FSPOOL 40
C *IN40 IFEQ '0'
C SSTS IFNE ' '
C* NREC IFGT 4
C* SSTS ANDNE'N G'
C* SSTS ANDNE'All'
C* SSTS ANDNE'Sts'
C Z-ADD0 OPC
C MOVEL' ' STS
C ADD 1 RRN1
C WRITESCR1S
C ENDIF
C ADD 1 NREC
C ENDIF
C ENDDO
C*
C ENDSR
C*---------------------------------------------------------------*
C* R103 PROCESA SELECCION
C*---------------------------------------------------------------*
C R103 BEGSR
C*
C MOVE '0' *IN50
C MOVE *OFF *IN72
C READCSCR1S 50
C *IN50 DOWEQ'0'
C*
C SELEC
C OPC WHEQ 2
C CALL 'SPOOL2C' LISTP
C MOVEL'*' STS
C*
C OPC WHEQ 3
C CALL 'SPOOL2C' LISTP
C MOVEL'*' STS
C*
C OPC WHEQ 5
C CALL 'SPOOL3C' LISTP
C*
C OPC WHEQ 8
C EXSR R104
C*
C OTHER
C MOVE *ON *IN72
C ENDSL
C*
C Z-ADD0 OPC
C*
C UPDATSCR1S
C*
C READCSCR1S 50
C ENDDO
C ENDSR
C*---------------------------------------------------------------*
C* R104 PRESENTA PANTALLA DE IMPRESORA
C*---------------------------------------------------------------*
C R104 BEGSR
C*
C MOVE '0' *IN52
C MOVE *OFF *IN12
C *IN52 DOUEQ'1'
C EXFMTSCRW
C*
C MOVE *ON *IN52
C*
C *IN12 IFEQ *OFF
C CALL 'SPOOL4C'
C PARM SFILE
C PARM SNUMB
C PARM SFILN
C PARM SJOB
C PARM WPRINT
C ENDIF
C*
C ENDDO
C MOVE *OFF *IN12
C ENDSR
C*************************************************************
/* */
/* EATON - CONDURA */
/* */
/* PROGRAMA....: SPOOL1C COPIA SPOOL A ARCHIVO */
/* AUTOR.......: JOSE GERARDO SANTILLANA C. */
/* FECHA.......: 11 DE JULIO DEL 2000 */
/* */
/*-------------------------------------------------------------------*/
PGM
DCL VAR(&JOBNME) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&MBRNME) TYPE(*CHAR) LEN(10)
ADDLIBLE LIB(COMUN)
MONMSG CPF2103
RTVJOBA JOB(&JOBNME) USER(&USER) NBR(&JOBNBR)
OVRPRTF FILE(QPRTSPLF) HOLD(*YES)
WRKSPLF OUTPUT(*PRINT)
CHGVAR VAR(&MBRNME) VALUE('SP' *CAT &JOBNBR)
ADDPFM FILE(FSPOOL) MBR(&MBRNME)
MONMSG MSGID(CPF7306)
OVRDBF FILE(FSPOOL) TOFILE(FSPOOL) MBR(&MBRNME) +
SHARE(*YES)
DLTF FILE(QTEMP/FSPOOLT)
MONMSG MSGID(CPF2105)
CPYF FROMFILE(COMUN/FSPOOL) TOFILE(QTEMP/FSPOOLT) +
MBROPT(*NONE) CRTFILE(*YES)
/* CRTDUPOBJ OBJ(FSPOOL) FROMLIB(COMUN) OBJTYPE(*FILE) +
TOLIB(QTEMP) NEWOBJ(FSPOOLT) */
CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/FSPOOLT) +
JOB(&JOBNBR/&USER/&JOBNME) SPLNBR(*LAST)
CPYF FROMFILE(QTEMP/FSPOOLT) TOFILE(FSPOOL) +
MBROPT(*REPLACE) INCCHAR(*RCD 60 *EQ ' ')
DLTF FILE(QTEMP/FSPOOLT)
CALL PGM(SPOOL1) /* PARM(&JOBNME) */
RMVM FILE(FSPOOL) MBR(&MBRNME)
DLTOVR FILE(QPRTSPLF)
DLTSPLF FILE(QPRTSPLF) JOB(&JOBNBR/&USER/&JOBNME) +
SPLNBR(*LAST)
T999: ENDPGM
100 /* */
10/14/98
200 /* EATON - CONDURA */
01/17/00
300 /* */
10/14/98
400 /* PROGRAMA....: SPOOL2C COPIA SPOOL A ARCHIVO TRANSFER */
07/11/00
500 /* AUTOR.......: JOSE GERARDO SANTILLANA C. */
07/11/00
600 /* FECHA.......: 11 DE JULIO DEL 2000 */
07/11/00
700 /* */
10/14/98
800 /*-------------------------------------------------------------------*/
10/22/98
900 PGM PARM(&FILE &JOBNBR &SPL &JOB &OPC)
11/23/00
1000
1100 DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
07/11/00
1200 DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
07/11/00
1300 DCL VAR(&SPL) TYPE(*CHAR) LEN(4)
07/11/00
1400 DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
07/11/00
1500 DCL VAR(&OPC) TYPE(*DEC) LEN(1 0)
11/23/00
1600
07/11/00
1700 DCL VAR(&JOBNSP) TYPE(*CHAR) LEN(10)
07/11/00
1800 DCL VAR(&JOBSES) TYPE(*CHAR) LEN(10)
07/11/00
1900
07/11/00
2000 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
07/11/00
2100 DCL VAR(&SPLNBR) TYPE(*DEC) LEN(10 0)
07/11/00
2200
07/11/00
2300 CHGVAR VAR(&SPLNBR) VALUE(&SPL)
07/11/00
2400
07/11/00
2500 RTVJOBA JOB(&JOBSES) USER(&USER) NBR(&JOBNSP)
07/11/00
2600
07/11/00
2700 ADDPFM FILE(TRANSF) MBR(&USER)
07/11/00
2800 MONMSG MSGID(CPF7306)
07/11/00
2900 OVRDBF FILE(TRANSF) TOFILE(TRANSF) MBR(&USER)
07/11/00
3000
11/23/00
3100 IF COND(&OPC *EQ 2) THEN(DO)
11/23/00
3200 CPYSPLF FILE(&FILE) TOFILE(TRANSF) +
07/11/00
3300 JOB(&JOBNBR/&USER/&JOB) SPLNBR(&SPLNBR) +
07/12/00
3400 MBROPT(*REPLACE)
07/11/00
3500 ENDDO
11/23/00
3600 ELSE (DO)
11/23/00
3700 CPYSPLF FILE(&FILE) TOFILE(TRANSF) +
11/23/00
3800 JOB(&JOBNBR/&USER/&JOB) SPLNBR(&SPLNBR) +
11/23/00
3900 MBROPT(*ADD)
11/23/00
4000 ENDDO
11/23/00
4100
11/23/00
4200
11/23/00
4300 SNDPGMMSG MSG('Archivo transferido a TRANSF')
07/12/00
4400
07/11/00
4500 T999: ENDPGM
10/22/98
100 /* */
10/14/98
200 /* EATON - CONDURA */
01/17/00
300 /* */
10/14/98
400 /* PROGRAMA....: SPOOL3C COPIA SPOOL A ARCHIVO TRANSFER */
07/11/00
500 /* AUTOR.......: JOSE GERARDO SANTILLANA C. */
07/11/00
600 /* FECHA.......: 11 DE JULIO DEL 2000 */
07/11/00
700 /* */
10/14/98
800 /*-------------------------------------------------------------------*/
10/22/98
900 PGM PARM(&FILE &JOBNBR &SPL &JOB &OPC)
11/23/00
1000
1100 DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
07/11/00
1200 DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
07/11/00
1300 DCL VAR(&SPL) TYPE(*CHAR) LEN(4)
07/11/00
1400 DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
07/11/00
1500 DCL VAR(&OPC) TYPE(*DEC) LEN(1 0)
11/23/00
1600
07/11/00
1700 DCL VAR(&JOBNSP) TYPE(*CHAR) LEN(10)
07/11/00
1800 DCL VAR(&JOBSES) TYPE(*CHAR) LEN(10)
07/11/00
1900
07/11/00
2000 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
07/11/00
2100 DCL VAR(&SPLNBR) TYPE(*DEC) LEN(10 0)
07/11/00
2200
07/11/00
2300 CHGVAR VAR(&SPLNBR) VALUE(&SPL)
07/11/00
2400
07/11/00
2500 RTVJOBA JOB(&JOBSES) USER(&USER) NBR(&JOBNSP)
07/11/00
2600
07/11/00
2700
07/11/00
2800 DSPSPLF FILE(&FILE) JOB(&JOBNBR/&USER/&JOB) +
07/12/00
2900 SPLNBR(&SPLNBR)
07/11/00
3000
07/11/00
3100
07/11/00
3200 T999: ENDPGM
10/22/98
100 /* */
10/14/98
200 /* EATON - CONDURA */
01/17/00
300 /* */
10/14/98
400 /* PROGRAMA....: SPOOL4C IMPRIME EL SPOOL SELECCIONADO */
09/08/00
500 /* AUTOR.......: JOSE GERARDO SANTILLANA C. */
07/11/00
600 /* FECHA.......: 09 DE SEPT DEL 2000 */
09/08/00
700 /* */
10/14/98
800 /*-------------------------------------------------------------------*/
10/22/98
900 PGM PARM(&FILE &JOBNBR &SPL &JOB &PRTNAM)
09/08/00
1000
09/08/00
1100 DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
07/11/00
1200 DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
09/08/00
1300 DCL VAR(&SPL) TYPE(*CHAR) LEN(4)
07/11/00
1400 DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
07/11/00
1410 DCL VAR(&PRTNAM) TYPE(*CHAR) LEN(10)
09/08/00
1500
07/11/00
1600 DCL VAR(&JOBNSP) TYPE(*CHAR) LEN(10)
07/11/00
1700 DCL VAR(&JOBSES) TYPE(*CHAR) LEN(10)
07/11/00
1800
07/11/00
1900 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
07/11/00
2000 DCL VAR(&SPLNBR) TYPE(*DEC) LEN(10 0)
07/11/00
2100
07/11/00
2200 CHGVAR VAR(&SPLNBR) VALUE(&SPL)
07/11/00
2300
07/11/00
2400 RTVJOBA JOB(&JOBSES) USER(&USER) NBR(&JOBNSP)
07/11/00
2500
07/11/00
2600
07/11/00
2700 /* DSPSPLF FILE(&FILE) JOB(&JOBNBR/&USER/&JOB) +
09/08/00
2800 SPLNBR(&SPLNBR) */
09/08/00
2900 CHGSPLFA FILE(&FILE) JOB(&JOBNBR/&USER/&JOB) +
09/08/00
2910 SPLNBR(&SPLNBR) DEV(&PRTNAM)
09/08/00
3000
07/11/00
3100 T999: ENDPGM
10/22/98
A*--------------------------------------------------------------
A* E A T O N
A* JOSE GERARDO SANTILLANA C.
A* TRANSF 22/JULIO/2000
A*--------------------------------------------------------------
A R RPED1
A DATA 300 TEXT('STRING DE DATOS')
A*--------------------------------------------------------------
A* EATON CONDURA
A*
A* DM01 8/ABR/02 GERARDO S. MODIFIQUE EL TAMA#O DEL CAMPO SFILN
A* YA QUE POR CAMBIO DE VERSIO DE OS/400
A* AUMENTO DE 4 A 6 DIGITOS
A*--------------------------------------------------------------
A R RSPOOL
A SESP0 1 TEXT('ESPACIO')
A SFILE 10 TEXT('FILE')
A SESP1 1 TEXT('ESPACIO')
A SUSER 10 TEXT('USER')
A SESP2 1 TEXT('ESPACIO')
A SDEVQ 10 TEXT('DEVICE OR QUEUE')
A SESP3 1 TEXT('ESPACIO')
A SUSRD 10 TEXT('USER DATA')
A SESP4 1 TEXT('ESPACIO')
A SSTS 3 TEXT('STATUS')
A SESP5 1 TEXT('ESPACIO')
A STOTP 6 TEXT('TOTAL PAGES')
A SESP6 1 TEXT('ESPACIO')
A SCURP 5 TEXT('CURRENT PAGE')
A SESP7 1 TEXT('ESPACIO')
A SCOPY 4 TEXT('COPY')
A SESP8 1 TEXT('ESPACIO')
A SFORM 4 TEXT('FORM')
A SESP9 1 TEXT('ESPACIO')
A STYPE 4 TEXT('TYPE')
A SESP10 2 TEXT('ESPACIO')
A SPTY 3 TEXT('PRIORITY')
A SESP11 1 TEXT('ESPACIO')
A SCRTD 8 TEXT('CREATION DATE')
A SESP12 1 TEXT('ESPACIO')
A SCRTT 8 TEXT('CREATION TIME')
A SESP13 1 TEXT('ESPACIO')
DM01dA* SFILN 4 TEXT('FILE NBR')
DM01cA SFILN 6 TEXT('FILE NBR')
A SESP14 1 TEXT('ESPACIO')
A SJOB 10 TEXT('JOB')
A SESP15 1 TEXT('ESPACIO')
A SNUMB 6 TEXT('NUMBER')
A SESP16 1 TEXT('ESPACIO')
A SQUEUE 10 TEXT('QUEUE')
A SESP17 1 TEXT('ESPACIO')
A SLIBR 10 TEXT('LIBRARY')
A SESP18 1 TEXT('ESPACIO')
A SASP 4 TEXT('ASP')
A SESP19 1 TEXT('ESPACIO')
A SLSTUD 8 TEXT('LAST USED DATE')
A SESP20 1 TEXT('ESPACIO')
A SSIZE 9 TEXT('SPOOLED FILE SIZE')
A K SCRTD
A K SCRTT
