Discussion :

[eliepoinT]

Bonjour,

Quasiment tout est dans le titre, je cherche à copier une sysout disponible sous l'outil EOS (ancienement WSF), dans un fichier sequentiel ou dans un membre. Connaitriez vous une commande sous EOS pour faire cela? Ou un pgm à mettre dans un JCL?

D'avance merci,

Elie

[LeonK]

Bonjour,

j'ai un choix de menu "extraction d'état physique'. Celui-ci active un écran avec un modèle JCL SPMJCL00
Le JCL généré permet de lancer un pgm SPMUT00

[eliepoinT]

Helas je n'ai malheuresement pas ce choix mais j'arrive quand même sur un JCL à compléter, je vais essayer de voir ce que l'on peut faire avec ce pgm SPMUT00.

Merci en tout cas!

[eliepoinT]

Résolu, exemple de JCl d'extraction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//XXXXXX JOB (SMC),ELIET,CLASS=A,
// MSGLEVEL=(1,1),MSGCLASS=X,
// USER=YYYY,NOTIFY=YYYY
//*---------------------------------------------------
//STEP1 EXEC PGM=SPMUT00
//*--------------- REQUIRED DD STATEMENTS ------------
//STEPLIB DD DSN=SYS9.EOS21D.LINKLIB,DISP=SHR
//RSDPROF DD DSN=SYS9.EOS21D.PROFILE.MD001,DISP=SHR
//RSDPARM DD DSN=SYS9.EOS21D.SAMPLIB,DISP=SHR
//RSDLOG DD SYSOUT=*
//*--------------- FUNCTION DEPENDENT DD STATEMENTS --
//EOSSP DD DSN=SYS9.EOS21D.SPOOL ,
// DISP=SHR
//SORTIE DD DSN=YYYY.EOS.SEARCH.OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(15,15),RLSE),UNIT=3390,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSIN DD *
UID=RSD0
SEARCH SP=EOSSP,O=SORTIE,
SRCH='FERMER',
ROOT=TRO,
FDATE=073014,
TODATE=081014,
FTIME=063000,
TOTIME=084500

[Trexx]

- un E(xtract) ou un P(rint) devant l'état, Enter
- IMPR. SYST. BATCH ==> Y , Enter
- Répondre Yes à l'écran de confirmation , Enter
- une job sera générée, ajuster la carte job (MSGCLASS) , Enter
- Répondre Yes une fois la carte job ajustée, Enter
- Sub , Enter
- SDSF : XDC pour enregistrer l'output dans un fichier.