|
A ver si te sirve con este ejemplo.
Saludos.
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Foro AS/400 Enviado el: lunes, 20 de diciembre de 2004 13:12 Para: [EMAIL PROTECTED] Asunto: COPYSPLF Hola!
Con el mandato CPYSPLF copio un archivo de spool a fichero
fisico, pero.... como hago la operaci�n inversa, es decir, volver a convertir el
fichero fisico a archivo de spool.
Es la manera que se me ha ocurrido para sacar de un 400
aislado unos listados y poderlos imprimir en otro
Gracias por vuestra ayuda
Un Saludo
Susana
|
5722WDS V5R1M0 010525 LISTADO FUENTE SEU
29/12/03 17:59:18 P�G. 1
MIEMBRO . . . . . . . . . LISTSPLR
--------------------------------------------------------------------------------------------------------------------------------
PARA EJECUTARLO ES:
123456789012345678901234567890 30 POSICIONES
CALL LISTSPLR PARMS('FILE LIBL MBR ')
10 PRIMERAS POSICIONES DEL PARAMETRO VA EL ARCHIVO
10 SEGUNDAS VA LA BIBLIOTECA
10 TERCERAS VA EL MIEMBRO
--------------------------------------------------------------------------------------------------------------------------------
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100
*========================================================================*
26/12/03
200 * LISTA FICHERO FISICO CON SPOOL COPIADO DE LA SIGUIENTE FORMA:
* 26/12/03
300 *
* 26/12/03
400 * CPYSPLF FILE(PEDIDO) TOFILE(MEINA) CTLCHAR(*PRTCTL)
* 26/12/03
500
*========================================================================*
26/12/03
600 FMEINA IF F 256 DISK USROPN
24/12/03
700 FQSYSPRT O F 198 PRINTER USROPN
12/12/02
800 D TL1 S 1 DIM(198)
12/12/02
900 D TL2 S 1 DIM(198)
12/12/02
1000 IMEINA NS 01
24/12/03
1100 I 1 256 LINEA
12/12/02
1200
*---------------------------------------------------------------------
26/12/03
1300 C *ENTRY PLIST
12/12/02
1400 C PARM FILE 30
27/12/03
1500 *
26/12/03
1600 C EVAL CMD='OVRDBF FILE(MEINA) TOFILE(' +
24/12/03
1700 C %trim(%subst(FILE:11:10))+'/'+
12/12/02
1800 C %trim(%subst(FILE:1:10))+')
MBR('+ 27/12/03
1900 C %trim(%subst(FILE:21:10))+')'
29/12/03
2000 C CALL 'QCMDEXC'
12/12/02
2100 C PARM CMD 255
12/12/02
2200 C PARM 255 LONG 15 5
12/12/02
2300 C OPEN MEINA
77 26/12/03
2400 C IF *IN77=*ON
26/12/03
2500 C EVAL *INLR=*ON
26/12/03
2600 C RETURN
26/12/03
2700 C ENDIF
26/12/03
2800 *
26/12/03
2900 C MOVEL *BLANK L1 198
12/12/02
3000 C Z-ADD *ZEROS LC 3 0
12/12/02
3100 *
26/12/03
3200 C DO *HIVAL
12/12/02
3300 C READ MEINA
95 24/12/03
3400 C *IN95 IFEQ *OFF
12/12/02
3500 * ----------------------------
26/12/03
3600 * ABRE EL ARCHIVO DE IMPRESORA
26/12/03
3700 * ----------------------------
26/12/03
3800 C *IN02 IFEQ *OFF
12/12/02
3900 C OPEN QSYSPRT
12/12/02
4000 C MOVEL *ON *IN02
12/12/02
4100 C ENDIF
12/12/02
4200 *
26/12/03
4300 C MOVEL LINEA SKIPB 3
12/12/02
4400 C SKIPB IFNE *BLANK
12/12/02
4500 C L1 IFNE *BLANK
12/12/02
4600 C EXCEPT PINTA
12/12/02
4700 C ENDIF
12/12/02
4800 C MOVEL SKIPB NSKIPB 3 0
12/12/02
4900 C NSKIPB IFLT LC
12/12/02
5000 C EXCEPT NEWPAG
12/12/02
5100 C Z-ADD NSKIPB LC
12/12/02
5200 C ENDIF
12/12/02
5300 C NSKIPB SUB 1 WORK 3 0
12/12/02
5400 C LC DO WORK
12/12/02
5500 C EXCEPT NEWLIN
12/12/02
5600 C ADD 1 LC
12/12/02
5700 C ENDDO
12/12/02
5800 *
26/12/03
5900 C SUBST LINEA:5 L1
12/12/02
6000 *
26/12/03
6100 C ELSE
12/12/02
6200 * -----------------------------
26/12/03
6300 * CONTROL DE ESPACIADO (SPACEB)
26/12/03
6400 * -----------------------------
26/12/03
6500 C 1 SUBST LINEA:4 SPACE 1
12/12/02
6600 C SPACE IFNE '0'
12/12/02
6700 C EXCEPT PINTA
12/12/02
6800 C ADD 1 LC
12/12/02
6900 C MOVEL *BLANK L1
12/12/02
7000 C MOVEL SPACE NSPACE 1 0
12/12/02
7100 C NSPACE IFGT 1
12/12/02
7200 C NSPACE SUB 1 WORK
12/12/02
7300 C 1 DO WORK
12/12/02
7400 C EXCEPT NEWLIN
12/12/02
7500 C ADD 1 LC
12/12/02
7600 C ENDDO
12/12/02
7700 C ENDIF
12/12/02
7800 *
26/12/03
7900 C SUBST LINEA:5 L1
12/12/02
8000 *
26/12/03
8100 C ELSE
12/12/02
8200 *
26/12/03
8300 C SUBST LINEA:5 L2 198
12/12/02
8400 C MOVEA L1 TL1
12/12/02
8500 C MOVEA L2 TL2
12/12/02
8600 C 1 DO 198 I 3 0
12/12/02
8700 C TL1(I) IFEQ *BLANK
12/12/02
8800 C MOVEL TL2(I) TL1(I)
12/12/02
8900 C ENDIF
12/12/02
9000 C ENDDO
12/12/02
9100 C MOVEA TL1 L1
12/12/02
9200 C ENDIF
12/12/02
9300 C ENDIF
12/12/02
9400 *
26/12/03
9500 C ENDIF
12/12/02
9600 C N95 ENDDO
12/12/02
9700 *
26/12/03
9800 C *IN02 IFEQ *ON
12/12/02
9900 C EXCEPT PINTA
12/12/02
10000 C CLOSE QSYSPRT
12/12/02
10100 C ENDIF
12/12/02
10200 *
26/12/03
10300 C MOVEL *ON *INLR
12/12/02
10400
*---------------------------------------------------------------------
26/12/03
10500 OQSYSPRT E PINTA 1
12/12/02
10600 O L1 198
12/12/02
10700 OQSYSPRT E NEWPAG 1
12/12/02
10800 OQSYSPRT E NEWLIN 1
12/12/02
* * * * F I N D E F U E N T E * * * *
