yo utilizo estos dos programas para automatizar el paso a pdf's de spooles de un trabajo, haciendo la llamada al teminar el trabajo.
para obtener CVTSPLSTMF http://www.help400.es/asp/scripts/nwart.asp?Num=109&Pag=909&Tip=U par enviar email con adjuntos: CHGVAR VAR(&NOM) VALUE('/pdf/pdf/' *TCAT &NOMBRE + *TCAT '.pdf') SMTP/SNDM FROM('[EMAIL PROTECTED]' + 'pedro TOBEPAL') + TO(('[EMAIL PROTECTED]' 'pedro + CASA')) FILE(SMTP/QCLSRC) MBR(VACIO) + SUBJECT(&NOM) ATTACHMENT(&NOM) + REPLYTO('[EMAIL PROTECTED]') + SMTPHOST(relay.xxxx.com) DEBUG(*NO) la utilidad sndm http://homepage1.nifty.com/uzaemon/index.html#download Pedro Pinedo Hernandez: Analista-Programador Grupo Amcor Flexibles Hispania S.L. Departamento de Informática / IT Department tfno.:+34 941 28 60 90 - 941 03 01 39 fax: +34 941 20 75 43 Avd. Burgos 67-95 26006 Logroño Spain [EMAIL PROTECTED] (quitar nospam del dominio, para enviar) _______________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION _______________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 08:00:31 FTOBDB02 PÁG. 1
ARCHIVO FUENTE . . . . . AULIBD/QCLSRC
MIEMBRO . . . . . . . . . SPOOLF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 /*********************************************************************/
05/05/92
200 /* PROCEDIMIENTO DE CAMBIO DE ARCHIVOS EN SPOOL */
02/05/94
300 /*********************************************************************/
05/05/92
400 PGM PARM(&SELECA &[EMAIL PROTECTED] &[EMAIL
PROTECTED] &[EMAIL PROTECTED] +
17/02/06
500 &[EMAIL PROTECTED] &[EMAIL PROTECTED])
17/02/06
600 /* */
02/05/94
700 /* DECLARAR FICHERO */
02/05/94
800 /* */
02/05/94
900 DCLF FILE(QGPL/QCLSRC)
02/05/94
1000 /* */
02/02/94
1100 DCL VAR(&SELECA) TYPE(*CHAR) LEN(2)
02/05/94
1200 DCL VAR(&[EMAIL PROTECTED]) TYPE(*CHAR) LEN(10)
17/02/06
1300 DCL VAR(&[EMAIL PROTECTED]) TYPE(*CHAR) LEN(10)
17/02/06
1400 DCL VAR(&[EMAIL PROTECTED]) TYPE(*CHAR) LEN(6)
17/02/06
1500 DCL VAR(&[EMAIL PROTECTED]) TYPE(*CHAR) LEN(10)
17/02/06
1600 DCL VAR(&[EMAIL PROTECTED]) TYPE(*CHAR) LEN(4)
17/02/06
1700 DCL VAR(&[EMAIL PROTECTED]) TYPE(*DEC) LEN(4 0)
17/02/06
1800 DCL VAR(&NPD) TYPE(*DEC) LEN(3 0)
17/02/06
1900 DCL VAR(&NC) TYPE(*CHAR) LEN(3)
17/02/06
2000 DCL VAR(&N4) TYPE(*CHAR) LEN(4)
17/02/06
2100 DCL VAR(&NOMBRE) TYPE(*CHAR) LEN(22)
17/02/06
2200 DCL VAR(&DIR) TYPE(*CHAR) LEN(22)
17/02/06
2300 CHGVAR VAR(&[EMAIL PROTECTED]) VALUE(&[EMAIL
PROTECTED]) 17/02/06
2400 /* */
02/05/94
2500 /* SUPRIMIR ARCHIVO */
02/05/94
2600 /* */
02/05/94
2700 IF COND(&SELECA *EQ ' 4' *OR &SELECA *EQ '4 ' +
17/02/06
2800 *OR SELECA *EQ '04') THEN(DO)
17/02/06
2900 DLTSPLF FILE(&[EMAIL PROTECTED]) +
17/02/06
3000 JOB(&[EMAIL PROTECTED]/&[EMAIL
PROTECTED]/&[EMAIL PROTECTED]) +
17/02/06
3100 SPLNBR(&[EMAIL PROTECTED])
17/02/06
3200 MONMSG MSGID(CPF0000)
17/02/06
3300 ENDDO
02/05/94
3400 /* */
03/12/01
3500 /* pasar a pdf */
03/12/01
3600 /* */
03/12/01
3700 IF COND(&SELECA *EQ 'PD') THEN(DO)
17/02/06
3800 CRTDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED]) TYPE(*CHAR)
LEN(22) 17/02/06
3900 MONMSG MSGID(CPF0000) EXEC(DO)
03/12/01
4000 RTVDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
RTNVAR(&NOMBRE) 17/02/06
4100 CHGVAR VAR(&NC) VALUE(%SST(&NOMBRE 2 3))
17/02/06
4200 CHGVAR VAR(&NPD) VALUE(&NC)
17/02/06
4300 GOTO CMDLBL(BUCLE)
17/02/06
4400 ENDDO
03/12/01
4500 CHGVAR VAR(&NPD) VALUE(0)
17/02/06
4600 BUCLE: IF COND(&NPD *EQ 999) THEN(CHGVAR VAR(&NPD) +
17/02/06
4700 VALUE(0))
17/02/06
4800 CHGVAR VAR(&NPD) VALUE(&NPD + 1)
17/02/06
4900 CHGVAR VAR(&NC) VALUE(&NPD)
17/02/06
5000 CHGVAR VAR(&N4) VALUE(&[EMAIL PROTECTED])
17/02/06
5100 CHGVAR VAR(&NOMBRE) VALUE('P' *CAT &NC *TCAT +
17/02/06
5200 &[EMAIL PROTECTED] *TCAT &N4 *TCAT '.PDF')
17/02/06
5300 CHGVAR VAR(&DIR) VALUE('/pdf/pdf/T' *TCAT &[EMAIL
PROTECTED]) 17/02/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 08:00:31 FTOBDB02 PÁG. 2
ARCHIVO FUENTE . . . . . AULIBD/QCLSRC
MIEMBRO . . . . . . . . . SPOOLF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
5400 CRTDIR DIR('/pdf') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
05/12/01
5500 MONMSG MSGID(CPF0000)
05/12/01
5600 CRTDIR DIR('/pdf/pdf') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
05/12/01
5700 MONMSG MSGID(CPF0000)
04/12/01
5800 CRTDIR DIR(&DIR) DTAAUT(*EXCLUDE) OBJAUT(*NONE)
04/12/01
5900 MONMSG MSGID(CPF0000)
04/12/01
6000 SBMJOB CMD(CVTSPLSTMF FROMFILE(&[EMAIL PROTECTED]) +
17/02/06
6100 TOSTMF(&NOMBRE) TODIR(&DIR) +
17/02/06
6200 JOB(&[EMAIL PROTECTED]/&[EMAIL
PROTECTED]/&[EMAIL PROTECTED]) +
17/02/06
6300 SPLNBR(&[EMAIL PROTECTED]) TOFMT(*PDF) +
17/02/06
6400 TITLE(&[EMAIL PROTECTED])) JOB(&[EMAIL
PROTECTED]) 17/02/06
6500 MONMSG MSGID(CPF0000)
03/12/01
6600 CHGDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
VALUE(&NOMBRE) 17/02/06
6700 ENDDO
03/12/01
6800 /* */
05/12/01
6900 /* pasar a html */
05/12/01
7000 /* */
05/12/01
7100 IF COND(&SELECA *EQ 'HT') THEN(DO)
17/02/06
7200 CRTDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED]) TYPE(*CHAR)
LEN(22) 17/02/06
7300 MONMSG MSGID(CPF0000) EXEC(DO)
17/02/06
7400 RTVDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
RTNVAR(&NOMBRE) 17/02/06
7500 CHGVAR VAR(&NC) VALUE(%SST(&NOMBRE 2 3))
17/02/06
7600 CHGVAR VAR(&NPD) VALUE(&NC)
17/02/06
7700 GOTO CMDLBL(BUCL1)
17/02/06
7800 ENDDO
17/02/06
7900 CHGVAR VAR(&NPD) VALUE(0)
17/02/06
8000 BUCL1: IF COND(&NPD *EQ 999) THEN(CHGVAR VAR(&NPD) +
17/02/06
8100 VALUE(0))
17/02/06
8200 CHGVAR VAR(&NPD) VALUE(&NPD + 1)
17/02/06
8300 CHGVAR VAR(&NC) VALUE(&NPD)
17/02/06
8400 CHGVAR VAR(&N4) VALUE(&[EMAIL PROTECTED])
17/02/06
8500 CHGVAR VAR(&NOMBRE) VALUE('P' *CAT &NC *TCAT +
17/02/06
8600 &[EMAIL PROTECTED] *TCAT &N4 *TCAT '.html')
17/02/06
8700 CHGVAR VAR(&DIR) VALUE('/pdf/html/T' *TCAT &[EMAIL
PROTECTED]) 17/02/06
8800 CRTDIR DIR('/pdf') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
8900 MONMSG MSGID(CPF0000)
17/02/06
9000 CRTDIR DIR('/pdf/html') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
9100 MONMSG MSGID(CPF0000)
17/02/06
9200 CRTDIR DIR(&DIR) DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
9300 MONMSG MSGID(CPF0000)
17/02/06
9400 SBMJOB CMD(CVTSPLSTMF FROMFILE(&[EMAIL PROTECTED]) +
17/02/06
9500 TOSTMF(&NOMBRE) TODIR(&DIR) +
17/02/06
9600 JOB(&[EMAIL PROTECTED]/&[EMAIL
PROTECTED]/&[EMAIL PROTECTED]) +
17/02/06
9700 SPLNBR(&[EMAIL PROTECTED]) TOFMT(*HTML) +
17/02/06
9800 TITLE(&[EMAIL PROTECTED])) JOB(&[EMAIL
PROTECTED]) 17/02/06
9900 MONMSG MSGID(CPF0000)
05/12/01
10000 CHGDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
VALUE(&NOMBRE) 17/02/06
10100 ENDDO
05/12/01
10200 /* */
05/12/01
10300 /* pasar a text */
05/12/01
10400 /* */
05/12/01
10500 IF COND(&SELECA *EQ 'TX') THEN(DO)
17/02/06
10600 CRTDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED]) TYPE(*CHAR)
LEN(22) 17/02/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 08:00:31 FTOBDB02 PÁG. 3
ARCHIVO FUENTE . . . . . AULIBD/QCLSRC
MIEMBRO . . . . . . . . . SPOOLF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
10700 MONMSG MSGID(CPF0000) EXEC(DO)
17/02/06
10800 RTVDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
RTNVAR(&NOMBRE) 17/02/06
10900 CHGVAR VAR(&NC) VALUE(%SST(&NOMBRE 2 3))
17/02/06
11000 CHGVAR VAR(&NPD) VALUE(&NC)
17/02/06
11100 GOTO CMDLBL(BUCL2)
05/12/01
11200 ENDDO
05/12/01
11300 CHGVAR VAR(&NPD) VALUE(0)
17/02/06
11400 BUCL2: IF COND(&NPD *EQ 999) THEN(CHGVAR VAR(&NPD) +
17/02/06
11500 VALUE(0))
17/02/06
11600 CHGVAR VAR(&NPD) VALUE(&NPD + 1)
17/02/06
11700 CHGVAR VAR(&NC) VALUE(&NPD)
17/02/06
11800 CHGVAR VAR(&N4) VALUE(&[EMAIL PROTECTED])
17/02/06
11900 CHGVAR VAR(&NOMBRE) VALUE('P' *CAT &NC *TCAT +
17/02/06
12000 &[EMAIL PROTECTED] *TCAT &N4 *TCAT '.txt')
17/02/06
12100 CHGVAR VAR(&DIR) VALUE('/pdf/text/T' *TCAT &[EMAIL
PROTECTED]) 17/02/06
12200 CRTDIR DIR('/pdf') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
12300 MONMSG MSGID(CPF0000)
05/12/01
12400 CRTDIR DIR('/pdf/text') DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
12500 MONMSG MSGID(CPF0000)
05/12/01
12600 CRTDIR DIR(&DIR) DTAAUT(*EXCLUDE) OBJAUT(*NONE)
17/02/06
12700 MONMSG MSGID(CPF0000)
05/12/01
12800 SBMJOB CMD(CVTSPLSTMF FROMFILE(&[EMAIL PROTECTED]) +
17/02/06
12900 TOSTMF(&NOMBRE) TODIR(&DIR) +
17/02/06
13000 JOB(&[EMAIL PROTECTED]/&[EMAIL
PROTECTED]/&[EMAIL PROTECTED]) +
17/02/06
13100 SPLNBR(&[EMAIL PROTECTED]) TOFMT(*TEXT) +
17/02/06
13200 TITLE(&[EMAIL PROTECTED])) JOB(&[EMAIL
PROTECTED]) 17/02/06
13300 MONMSG MSGID(CPF0000)
05/12/01
13400 CHGDTAARA DTAARA(AULIBD/&[EMAIL PROTECTED])
VALUE(&NOMBRE) 17/02/06
13500 ENDDO
05/12/01
13600 /* */
02/02/94
13700 FIN:
02/05/94
13800 /* CHGJOB RUNPTY(20) */
25/06/03
13900 ENDPGM
05/05/92
* * * * F I N D E F U E N T E * * * *
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 07:59:52 FTOBDB02 PÁG. 1
ARCHIVO FUENTE . . . . . AULIBD/QRPGLESRC
MIEMBRO . . . . . . . . . SPOOL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 *Output Distribution : Retreive Last SpoolfileÑ for job.
16/02/06
200
16/02/06
300
16/02/06
400 * -- Fields...
16/02/06
500 d [EMAIL PROTECTED] s inz
like([EMAIL PROTECTED]) 16/02/06
600 d [EMAIL PROTECTED] s inz
like([EMAIL PROTECTED]) 16/02/06
700 d [EMAIL PROTECTED] s 9b 0 inz
16/02/06
800 d [EMAIL PROTECTED] s 10a inz
16/02/06
900 d [EMAIL PROTECTED] s 20a inz
16/02/06
1000 d ccyymmdd s d datfmt(*iso)
16/02/06
1100 d [EMAIL PROTECTED] s 26a inz
16/02/06
1200 d [EMAIL PROTECTED] s 1000a inz
16/02/06
1300 d format s 8a inz
16/02/06
1400 d [EMAIL PROTECTED] s 21a inz
16/02/06
1500 d no c *off
16/02/06
1600 d selected s inz like(*in01)
16/02/06
1700 d [EMAIL PROTECTED] s inz
like([EMAIL PROTECTED]) 16/02/06
1800 d [EMAIL PROTECTED] s 10a inz('quslspl')
16/02/06
1900 d [EMAIL PROTECTED] s inz(2000) like([EMAIL
PROTECTED]) 16/02/06
2000 d [EMAIL PROTECTED] s 1a inz
16/02/06
2100 d [EMAIL PROTECTED] s 10a inz('*ALL')
16/02/06
2200 d [EMAIL PROTECTED] s 50a inz('[EMAIL
PROTECTED] Temporary User Space') 16/02/06
2300 d [EMAIL PROTECTED] s 10a inz('*YES')
16/02/06
2400 d [EMAIL PROTECTED] s inz like([EMAIL
PROTECTED]) 16/02/06
2500 d x s 9b 0 inz
16/02/06
2600 d xx s 9b 0 inz
17/02/06
2700 d y s 9b 0 inz
16/02/06
2800 d z s 9b 0 inz
16/02/06
2900 d yes c *on
16/02/06
3000
16/02/06
3100 * -- Data Structures....
16/02/06
3200 d holdInfo ds
16/02/06
3300 d [EMAIL PROTECTED] 10a inz
16/02/06
3400 d [EMAIL PROTECTED] 10a inz
16/02/06
3500 d [EMAIL PROTECTED] 6a inz
16/02/06
3600 d [EMAIL PROTECTED] 10a inz
16/02/06
3700 d [EMAIL PROTECTED] 4a inz
17/02/06
3800 d [EMAIL PROTECTED] 10a inz
16/02/06
3900
16/02/06
4000 * ---- Character/Numeric conversion...
16/02/06
4100 d character ds
16/02/06
4200 d numeric 1 4b 0 inz
16/02/06
4300
16/02/06
4400 * ---- User Space Name...
16/02/06
4500 d [EMAIL PROTECTED] ds
16/02/06
4600 d [EMAIL PROTECTED] 10a inz('[EMAIL
PROTECTED]') 16/02/06
4700 d [EMAIL PROTECTED] 10a inz('QTEMP')
16/02/06
4800
16/02/06
4900 * ---- Requested Spooled File keys...
16/02/06
5000 d [EMAIL PROTECTED] ds
16/02/06
5100 d [EMAIL PROTECTED] 1 4b 0 inz(201)
16/02/06
5200 d [EMAIL PROTECTED] 5 8b 0 inz(202)
16/02/06
5300 d [EMAIL PROTECTED] 9 12b 0 inz(203)
16/02/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 07:59:52 FTOBDB02 PÁG. 2
ARCHIVO FUENTE . . . . . AULIBD/QRPGLESRC
MIEMBRO . . . . . . . . . SPOOL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
5400 d [EMAIL PROTECTED] 13 16b 0 inz(204)
16/02/06
5500 d [EMAIL PROTECTED] 17 20b 0 inz(205)
16/02/06
5600 d [EMAIL PROTECTED] 21 24b 0 inz(210)
16/02/06
5700
16/02/06
5800 * ---- Edit API Error Data Structure...
16/02/06
5900 d [EMAIL PROTECTED]@ds ds inz
16/02/06
6000 d [EMAIL PROTECTED] 1 4b 0 inz(%size([EMAIL
PROTECTED]@ds)) 16/02/06
6100 d [EMAIL PROTECTED] 5 8b 0 inz
16/02/06
6200 d [EMAIL PROTECTED] 9 15a inz
16/02/06
6300 d [EMAIL PROTECTED] 16 16a inz
16/02/06
6400 d [EMAIL PROTECTED] 17 116a inz
16/02/06
6500
16/02/06
6600 * -- Indicators...
16/02/06
6700 d [EMAIL PROTECTED] s * inz(%addr(*in))
16/02/06
6800 d ds based([EMAIL PROTECTED])
16/02/06
6900 d indicators 99
16/02/06
7000 * ---- 01 - 29 : Functions Key indicators...
16/02/06
7100 * ---- 30 - 39 : Random indicators...
16/02/06
7200 * ---- 40 - 49 : Subfile indicators...
16/02/06
7300 * ---- 50 - 89 : Error indicators...
16/02/06
7400 * ---- 90 - 99 : File/Array/Scan indicators..
16/02/06
7500 d recnotfnd 1 overlay(indicators:90)
16/02/06
7600 d endoffile 1 overlay(indicators:99)
16/02/06
7700
16/02/06
7800 * -- Program parameters...
16/02/06
7900 d [EMAIL PROTECTED] ds
16/02/06
8000 d [EMAIL PROTECTED] 10a
16/02/06
8100 d [EMAIL PROTECTED] 10a
16/02/06
8200 d [EMAIL PROTECTED] 6a
16/02/06
8300 d [EMAIL PROTECTED] 10a
16/02/06
8400 d [EMAIL PROTECTED] 4s 0
16/02/06
8500 D qcmdexc PR EXTPGM('QCMDEXC')
24/03/06
8600 D cmd 1024A OPTIONS(*VARSIZE) CONST
24/03/06
8700 D cmdlen 15P 5 CONST
24/03/06
8800 d*
24/03/06
8900 d jCmd s 1024a
24/03/06
9000 d hora s T
24/03/06
9100 d horac ds
24/03/06
9200 d horch 2
24/03/06
9300 d punt1 1
24/03/06
9400 d horcm 2
24/03/06
9500 d punt2 1
24/03/06
9600 d horcs 2
24/03/06
9700
16/02/06
9800 * -- API QUSLSPL data strucure...
16/02/06
9900 /copy qsysinc/qrpglesrc,quslspl
16/02/06
10000 * -- Common User Space data strucure...
16/02/06
10100 /copy qsysinc/qrpglesrc,qusgen
16/02/06
10200
16/02/06
10300 * -- Create User Space API...
16/02/06
10400 c call 'QUSCRTUS'
16/02/06
10500 c parm [EMAIL PROTECTED]
16/02/06
10600 c parm [EMAIL PROTECTED]
16/02/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 07:59:52 FTOBDB02 PÁG. 3
ARCHIVO FUENTE . . . . . AULIBD/QRPGLESRC
MIEMBRO . . . . . . . . . SPOOL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
10700 c parm [EMAIL PROTECTED]
16/02/06
10800 c parm [EMAIL PROTECTED]
16/02/06
10900 c parm [EMAIL PROTECTED]
16/02/06
11000 c parm [EMAIL PROTECTED]
16/02/06
11100 c parm [EMAIL PROTECTED]
16/02/06
11200 c parm [EMAIL PROTECTED]@ds
16/02/06
11300 * -- List out Job Spooled Files...
16/02/06
11400 c call 'QUSLSPL'
16/02/06
11500 c parm [EMAIL PROTECTED]
16/02/06
11600 c parm 'SPLF0200' format
16/02/06
11700 c parm [EMAIL PROTECTED]
16/02/06
11800 c parm [EMAIL PROTECTED]
16/02/06
11900 c parm [EMAIL PROTECTED]
16/02/06
12000 c parm [EMAIL PROTECTED]
16/02/06
12100 c parm [EMAIL PROTECTED]@ds
16/02/06
12200 c parm '*' [EMAIL PROTECTED]
16/02/06
12300 c parm [EMAIL PROTECTED]
16/02/06
12400 c parm 6 [EMAIL PROTECTED]
16/02/06
12500
16/02/06
12600 * ---- Retrieve User Space Header contents...
16/02/06
12700 c call 'QUSRTVUS'
16/02/06
12800 c parm [EMAIL PROTECTED]
16/02/06
12900 c parm 1 [EMAIL PROTECTED]
16/02/06
13000 c parm 192 [EMAIL PROTECTED]
16/02/06
13100 c parm qush0100
16/02/06
13200 c parm [EMAIL PROTECTED]@ds
16/02/06
13300 * -- Check User Space status for good data...
16/02/06
13400 * ---- Header Format...
16/02/06
13500 c if (qussrl = '0100')
16/02/06
13600 * ---- 'C'omplete or 'P'artial...
16/02/06
13700 c and ((qusis = 'C') or (qusis = 'P'))
16/02/06
13800 * ---- Number of List Entries in User Space is greater than 0..
16/02/06
13900 c and (qusnbrle > 0)
16/02/06
14000 c exsr @retrieve
16/02/06
14100
16/02/06
14200 * ---- If value of [EMAIL PROTECTED] is not *FINISHED, then
return SPLFÑ. 16/02/06
14300 c endif
16/02/06
14400
16/02/06
14500 c eval *inlr = *on
16/02/06
14600 *****************************************************************
16/02/06
14700 * Sub-routine : @retrieve *
16/02/06
14800 *****************************************************************
16/02/06
14900 c @retrieve begsr
16/02/06
15000 * -- Maintain the number of List Entrees...
16/02/06
15100 c eval [EMAIL PROTECTED] = 0
16/02/06
15200 c* eval x = qusnbrle
17/02/06
15300
16/02/06
15400 c for xx=1 to qusnbrle
17/02/06
15500 c eval x = xx - 1
17/02/06
15600 * -- Adjust the Offset value to *Last Spoolfile value...
16/02/06
15700 c eval [EMAIL PROTECTED] = qusold + 1 +
16/02/06
15800 c (x * qussee)
16/02/06
15900 c clear holdInfo
16/02/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 07:59:52 FTOBDB02 PÁG. 4
ARCHIVO FUENTE . . . . . AULIBD/QRPGLESRC
MIEMBRO . . . . . . . . . SPOOL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
16000
16/02/06
16100 * -- Retrieve the lesser of allocated storage or available data..
16/02/06
16200 c eval [EMAIL PROTECTED] = 1000
16/02/06
16300 c if qussee < 1000
16/02/06
16400 c eval [EMAIL PROTECTED] = qussee
16/02/06
16500 c endif
16/02/06
16600 * ---- Retrieve User Space Detail contents...
16/02/06
16700 c call 'QUSRTVUS'
16/02/06
16800 c parm [EMAIL PROTECTED]
16/02/06
16900 c parm [EMAIL PROTECTED]
16/02/06
17000 c parm [EMAIL PROTECTED]
16/02/06
17100 c parm [EMAIL PROTECTED]
16/02/06
17200 c parm [EMAIL PROTECTED]@ds
16/02/06
17300
16/02/06
17400 * ---- Loop Through returned data...
16/02/06
17500 c eval qusf0200 = %subst([EMAIL
PROTECTED]:1:4) 16/02/06
17600 c eval z = 5
16/02/06
17700 c do qusnbrfr00
16/02/06
17800 * ------ Retrieve header information...
16/02/06
17900 c eval qussplki = %subst([EMAIL
PROTECTED]:z:16) 16/02/06
18000 * ------ Set Y to location of actual data associated with key...
16/02/06
18100 c eval y = z + 16
16/02/06
18200
16/02/06
18300 c select
16/02/06
18400 c when quskfffr00 = 201
16/02/06
18500 c eval [EMAIL PROTECTED] = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
18600 c when quskfffr00 = 202
16/02/06
18700 c eval [EMAIL PROTECTED] = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
18800 c when quskfffr00 = 203
16/02/06
18900 c eval [EMAIL PROTECTED] = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
19000 c when quskfffr00 = 204
16/02/06
19100 c eval [EMAIL PROTECTED] = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
19200 c when quskfffr00 = 205
16/02/06
19300 c eval character = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
19400 c move numeric [EMAIL PROTECTED]
17/02/06
19500 c when quskfffr00 = 210
16/02/06
19600 c eval [EMAIL PROTECTED] = %subst([EMAIL
PROTECTED]:y:qusdl02) 16/02/06
19700 c endsl
16/02/06
19800
16/02/06
19900 * ------ Adjust Z to address next keyed record returned...
16/02/06
20000 c eval z = z + quslfir02
16/02/06
20100 c enddo
16/02/06
20200
16/02/06
20300 * -------- If the status of the report comes back not *FINISHED
16/02/06
20400 * (written or deleted) then exit do-loop..
16/02/06
20500 c if [EMAIL PROTECTED] <> '*FINISHED'
16/02/06
20600 c time hora
24/03/06
20700 c hora adddur 60:*s hora
24/03/06
20800 c move hora horac
24/03/06
20900 c move ':' punt1
24/03/06
21000 c move ':' punt2
24/03/06
21100 c eval jcmd='SBMJOB CMD(CALL PGM(SPOOLF)
PARM('+ 24/03/06
21200 C X'7D'+SELECA +X'7D'+' '+
24/03/06
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
27/03/07 07:59:52 FTOBDB02 PÁG. 5
ARCHIVO FUENTE . . . . . AULIBD/QRPGLESRC
MIEMBRO . . . . . . . . . SPOOL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
21300 C X'7D'[EMAIL PROTECTED]
+X'7D'+' '+ 24/03/06
21400 C X'7D'[EMAIL PROTECTED] +X'7D'+'
'+ 24/03/06
21500 C X'7D'[EMAIL PROTECTED] +X'7D'+'
'+ 24/03/06
21600 C X'7D'[EMAIL PROTECTED] +X'7D'+'
'+ 24/03/06
21700 C X'7D'[EMAIL PROTECTED] +X'7D'+'
'+ 24/03/06
21800 C ')) JOB('[EMAIL PROTECTED] +')
JOBQ(QBATCH)'+ 24/03/06
21900 C ' SCDTIME('+X'7D'+ HORAC+X'7D'+
')' 24/03/06
22000 C CALLP
qcmdexc(%trim(jcmd):%len(%trim(jcmd)))
24/03/06
22100 c* CALLB 'SPOOLF'
24/03/06
22200 c* parm seleca
24/03/06
22300 c* parm [EMAIL PROTECTED]
24/03/06
22400 c* parm [EMAIL PROTECTED]
24/03/06
22500 c* parm [EMAIL PROTECTED]
24/03/06
22600 c* parm [EMAIL PROTECTED]
24/03/06
22700 c* parm [EMAIL PROTECTED]
24/03/06
22800 c endif
16/02/06
22900 c endfor
17/02/06
23000 c endsr
16/02/06
23100
16/02/06
23200 *****************************************************************
16/02/06
23300 * Sub-routine : *inzsr *
16/02/06
23400 *****************************************************************
16/02/06
23500 c *inzsr begsr
16/02/06
23600 c *entry plist
16/02/06
23700 c parm SELECA 2
17/02/06
23800
16/02/06
23900 c eval [EMAIL PROTECTED] = 0
16/02/06
24000 c endsr
16/02/06
* * * * F I N D E F U E N T E * * * *
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
