Query sur un spool file

**AAWOOPY56** · 18/09/2009, 15h34

Pour le nom de librairie j'utilise bien le mien pas de pb
Et pour le nom de fichier idem il n'y a pas de pb

Après X tentative je n'arrive pas à me sortir du problème
Je vous transmets mon fichier et mes divers requêtes que j'essaye d'effectuer

Je ne comprends plus rien je suis dans le noir avez-vous une idée sur la cause de mon pb MERCI.

Mon fichier d'origine LIBEXPL/LSTUSRSACT:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
                                                           Display Data                                                            
                                                                                                  Data width . . . . . . :     130 
 Position to line  . . . . .                                                                  Shift to column  . . . . . .         
 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10....+...11....+...12....+...13
 LSTUSRTEMP                                                                                                                        
    DAZERTYUIO   PGHJL       522373   PGHJL       INT    4  20        .1    0     .0      0     .0  CMD-RM          DSPW          1
    DSDFGHJKLM   PGHJL       522374   PGHJL       INT    4  20        .1    0     .0      0     .0  CMD-RM          DSPW          1
                             522520   PGHJL       INT    4  20        .0    0     .0      0     .0  GKJKJ           GRP           1
    FDMPEKTLKR   JKJKJJKK    522208   KKLKLKKL    INT    4  20        .3    0     .0      0     .0  PGM-WSMAIN      DSPW          1
    DSILRTSCB1   POIOKUHG    522210   KKLKLKKL    INT    4  20        .2    0     .0      0     .0  PGM-WSMAIN      DSPW          1

Code :

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

1
2
CREATE TABLE LIBEXPL/LISTEUSERS (USERJOB CHAR ( 13), USERACTIF NUMERIC ( 8))

Mon fichier créer par le create table pour découpage du fichier d'origine:

Code :

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

1
2
3
4
5
6
                                                           Display Data                                                            
                                                                                                  Data width . . . . . . :      26 
 Position to line  . . . . .                                                                  Shift to column  . . . . . .         
 ....+....1....+....2....+.                                                                                                        
 USERJOB         USERACTIF                                                                                                         
 ********  End of data  ********

Mes requêtes pour découpage du fichier d'origine LIBEXPL/LSTUSRSACT dans le fichier LIBEXPL/LISTEUSERS:

Code :

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

1
2
3
4
5
6
7
8
INSERT INTO LIBEXPL/LISTEUSERS (USERJOB) SELECT           
substr(LSTUSRTEMP,1,13) as USERJOB FROM LIBEXPL/LSTUSRSACT
68 rows inserted in LISTEUSERS in LIBEXPL.                

INSERT INTO LIBEXPL/LISTEUSERS (USERACTIF) SELECT           
substr(LSTUSRTEMP,1,13) as USERACTIF FROM LIBEXPL/LSTUSRSACT
Character in CAST argument not valid.

Résultat attendu après les requêtes LIBEXPL/LISTEUSERS mais impossible à faire avez-vous une idée sur le problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
                                                           Display Data                                                            
                                                                                                  Data width . . . . . . :     130 
 Position to line  . . . . .                                                                  Shift to column  . . . . . .         
 ....+....1....+....2....+....3....+
 USERJOB         USERACTIF                                                                                                                         
    DAZERTYUIO   522373      
    DSDFGHJKLM   522374      
                 522520          
    FDMPEKTLKR   522208   
    DSILRTSCB1   522210

**AAWOOPY56** · 18/09/2009, 17h34

Coucou les amissssss j'ai trouvé il y avait une erreur de syntax dans l'insert j'avais mis deux fois la close select ci-joint la ligne de commande bonne

Code :

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

INSERT INTO LIBEXPL/LISTEUSERS SELECT substr(LSTUSRTEMP,4,9) as USERJOB, substr(LSTUSRTEMP,29,6 ) as USERACTIF FROM LIBEXPL/LSTUSRSACT

Est-il possible de faire un update de la table en utilisant le select de mon insert

Merci à tous je vous souhaite un excellent week-end.

**K2R400** · 21/09/2009, 10h14

Tu peux directement faire :

Code :

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

1
2
CREATE TABLE LIBEXPL/LISTEUSERS as (SELECT SUBSTR(LSTUSRTEMP, 1, 13) USERJOB, cast(SUBSTR(LSTUSRTEMP, 14, 21) as numeric (8)) USERACTIF FROM MaBib/MonFic)
with data

**lva30** · 21/09/2009, 15h06

Bonjour.
Je ne sais pas trop ce que tu recherche mais cela ressemble à un monitoring de travaux actifs (me trompe-je ?)
As-tu déjà envisagé d'utiliser une API avant de transformer des spools en fichiers ?
L' exemple suivant est assez complet :
Use the QUSLJOB API to whip thru WRKACTJOB - Code400 -The Support Alternative

L'API sera nettement plus stable que la lecture d'un spool.

**AAWOOPY56** · 23/09/2009, 10h02

Bonjour,

Non je recherche uniquement à me familiariser avec les outil de l'as400 (sql,query,etc...) car je débute sur ce système et je ne peut que compter sur moi pour l'aide c'est nul mais c'est comme ça.

J'essaie de me constituer une liste à travers un fichier des utilisateurs actifs sur le système puis à partir de cette liste je vais devoir envoyer à chacun un sndbrkmsg

Ben pour faire ça j'ai une petite idée c'est en 1 de me constituer cette liste en 2 écrire un script qui me permette de faire une boucle à partir de cette liste et d'envoyer un sndbrkmsg

Pour le point 1 j'ai réussi à constituer cette liste

Il me reste le point 2 alors la ça ce corse je ne sais pas quel langage de programmation utiliser le cl pourquoi pas mais je débute et je n'ai pas trop de base alors si je trouve quelqu'un qui puisse me guider ligne par ligne ce serait super sympa et cela me serait je pense un bonne exemple ou je me trompe

Alors comment faire?????

**Simka1000** · 23/09/2009, 10h16

En gros :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PGM
/* Declaration du fichier à lire */
DCLF       FILE(TABIB/TONFICHIER)
/* Lecture du fichier */
LECT: RCVF 
/* Message Fin du Fichier */
MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
/* Envoi du Message à la variable contenant le nom du travail */
SNDBRKMSG  MSG('Ton TEXTE') TOMSGQ(&USERJOB)
/* Retour à la lecture */
GOTO LECT:
/* Fin du Prog */
FIN: ENDPGM

**AAWOOPY56** · 23/09/2009, 10h49

Slt Simka1000,

Merci pour le programme par contre la variable &USERJOB elle est charger ou par quoi je ne vois pas de déclaration de variable et de chargement ?
>

Elle est peut être chargé lors de la lecture de la première ligne du fichier si c'est ça donc le ne faut qu'une seule colonne dans le fichier qui correspond au USERJOB c'est ça?
>

Le langage c'est du CLP?
>

Le MSGID(CPF0864) correspond à la fin de lecture de mon fichier?
>

Le EXEC(GOTO CMDLBL(FIN)) Correspond au branchement de mon étiquette FIN?
>

Ca veut dire quoi CMDLBL?
>

Merci pour ton aide c'est hyper cool

**Simka1000** · 23/09/2009, 11h05

Envoyé par AAWOOPY56

Slt Simka1000,

Merci pour le programme par contre la variable &USERJOB elle est charger ou par quoi je ne vois pas de déclaration de variable et de chargement ?
>

Elle est peut être chargé lors de la lecture de la première ligne du fichier si c'est ça donc le ne faut qu'une seule colonne dans le fichier qui correspond au USERJOB c'est ça?
>
Oui c'est ça..pas besoin de la déclarer , comme c'est une zone du fichier , le DCLF suffit

Le langage c'est du CLP?
>
YES

Le MSGID(CPF0864) correspond à la fin de lecture de mon fichier?
>
Yes too

Le EXEC(GOTO CMDLBL(FIN)) Correspond au branchement de mon étiquette FIN?
>
Yes Too too

Ca veut dire quoi CMDLBL?
>
Commande Label

Merci pour ton aide c'est hyper cool

De rien

**AAWOOPY56** · 23/09/2009, 11h17

Y a un truc qu'est pas clair pour la ligne suivante:

Code :

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

1
2
3
Elle est peut être chargé lors de la lecture de la première ligne du fichier si c'est ça donc le ne faut qu'une seule colonne dans le fichier qui correspond au USERJOB c'est ça?
>
Oui c'est ça..pas besoin de la déclarer , comme c'est une zone du fichier , le DCLF suffit

Le nom de la variable est-elle associé au nom de ma colonne dans mon fichier?
>

Dans le cas ou j'ai plusieurs colonnes à traiter par exemple
1ere colonne "USERJOB" et 2eme Colonne "TEMPS"
Comment déclarer dans mon programme ces deux variables comme c'est fait dans ton exemple pour le USERJOB
>

La commande SQL suivante peut-elle être déclarer tel quelle dans le programme ou y a t-il une syntaxe à respecter?

Code :

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

CREATE TABLE MABIB/MONFICHIER (USERJOB CHAR (13 ) NOT NULL WITH DEFAULT, "USER" NUMERIC (8 ) NOT NULL WITH DEFAULT)

>

La commande suivante peut-elle être déclarer tel quelle dans le programme ou y a t-il une syntaxe à respecter?

Code :

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

WRKACTJOB OUTPUT(*PRINT) SBS(QINTER)

Ou bien

Code :

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

CRTPF FILE(MABIB/MONFICHIER) RCDLEN(130)

>

**Simka1000** · 23/09/2009, 11h35

Ajouter le caractère & devant le nom de zone (ex : &userjob) suffit pour lier la variable du CL à la zone de ton fichier.

Non , l'instruction SQL ne peut pas être faite directement dans le CL .
Tu dois créer un membre de type TXT (en général je les mets dans un fichier source QSQLSRC ) contenant les intructions SQL (séparées par un

Puis appeler ceclui ci dans le CL par l'intermediaire de la commande RUNSQLSTM

Pour le wrkactjob , jamais essayé mais ça doit le faire...

**AAWOOPY56** · 23/09/2009, 11h43

Ok je vais essayer pour le sql.

Le fichier de type txt on peut le créer avec PDM?
>

Donc si j'ai deux zones dans mon fichier USERJOB et USERACTIF je n'ai cas mettre dans mon pgm &USERJOB , &USERACTIF ces deux variables seront utilisables dans mon pgm au moment de la lecture de mon fichier.
>

Une petite question sur la façon d'écrire une requête sql suivante:

Dans mon fichier NEWFIC j’aimerai garder tous les USERJOB de ma colonne USERJOB sauf ceux qui commencent par RRRTTF
Comment écrire cette requête est-il possible de l’intégrer à la requête suivante :

Code :

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

INSERT INTO MABIB/NEWFIC SELECT substr(LSTUSRTEMP,4,9) as USERJOB, substr(LSTUSRTEMP,29,6 ) as USERACTIF FROM MABIB/OLDFIC

Dans mon fichier NEWFIC j’ai le champ à vide dans ma colonne USERJOB comment dire à l’insert (INSERT de la ligne du dessus) de ne pas intégrer ce champs est-il possible de l’intégrer dans le même insert ?

MON FICHIER NEWFIC

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
                                                           Display Data                                                             
                                                                                                  Data width . . . . . . :      24  
 Position to line  . . . . .                                                                  Shift to column  . . . . . .          
 ....+....1....+....2....                                                                                                           
 USERJOB        USERACTIF                                                                                                           
 RRRTTFXPO      522373                                                                                                              
 RRRTTFPIT      522374                                                                                                              
                522520                                                                                                              
 RRRTTFKIL      522527                                                                                                              
 FGORPIURX      522208                                                                                                              
 FGOR9808X      522210                                                                                                              
 FGOR4567X      522211                                                                                                              
 FGOR1234X      522212

Merci MERCI MeRcI

**K2R400** · 23/09/2009, 12h19

Envoyé par AAWOOPY56

Donc si j'ai deux zones dans mon fichier USERJOB et USERACTIF je n'ai cas mettre dans mon pgm &USERJOB , &USERACTIF ces deux variables seront utilisables dans mon pgm au moment de la lecture de mon fichier.

> Yes

Envoyé par AAWOOPY56

Dans mon fichier NEWFIC j’ai le champ à vide dans ma colonne USERJOB comment dire à l’insert (INSERT de la ligne du dessus) de ne pas intégrer ce champs est-il possible de l’intégrer dans le même insert ?

> A la fin de ton SELECT, tu rajoutes la clause WHERE
ex :

... WHERE not USERJOB = ' '

**Simka1000** · 23/09/2009, 13h13

Dans mon fichier NEWFIC j’aimerai garder tous les USERJOB de ma colonne USERJOB sauf ceux qui commencent par RRRTTF
Comment écrire cette requête est-il possible de l’intégrer à la requête suivante :

AND USERJOB NOT LIKE 'RRRTTF%'

**Simka1000** · 23/09/2009, 13h25

ou

AND NOT USERJOB LIKE 'RRRTTF%'

(j'ai testé les 2 , et ça marche pareil !!!

)

**AAWOOPY56** · 23/09/2009, 14h15

BOUAH...BOUAHHHHHHHHHHH trop FORT les GARS Vous êtes géants

Encore merci j'ai un exemple concret qui me permet de voir un peut plus clair dans ce nouveau monde

Je vais essayer de mettre tous ça en pratique je vous tiens au courant

Ah si pour le fichier de type txt c'est un fichier de type SRC qui peut être écrit sous PDM?
Si oui j'utilise cette syntaxe:

Code :

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

CRTPF FILE(MABIB/MONFIC) RCDLEN(500) FILETYPE(*SRC) REUSEDLT(*NO)

Bonne journée à vous tous

**Simka1000** · 23/09/2009, 14h22

Tu peux le créer dans PDM avec F6 en precisant TXT dans le type de source (TYPE) ou directement par la commande STRSEU (on ne crée pas d'objet pour un TXT , les instructions SQL sont dans le source)

**AAWOOPY56** · 23/09/2009, 14h32

Sur PDM je ne vois pas comment lui indiquer txt je te joint l'image de ma grille

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
                             Create Library (CRTLIB)                            
                                                                                
 Type choices, press Enter.                                                     
                                                                                
 Library  . . . . . . . . . . . . > FICHTXT       Name                          
 Library type . . . . . . . . . .   *PROD         *PROD, *TEST                  
 Text 'description' . . . . . . .   *BLANK                                      
                                                                                
                                                                                
                            Additional Parameters                               
                                                                                
 Authority  . . . . . . . . . . .   *LIBCRTAUT    Name, *LIBCRTAUT, *CHANGE...  
 ASP number . . . . . . . . . . .   1             1-32, *ASPDEV                 
 ASP device . . . . . . . . . . .   *ASP          Name, *ASP, *ASPGRPPRI...     
 Create authority . . . . . . . .   *SYSVAL       Name, *SYSVAL, *CHANGE...     
 Create object auditing . . . . .   *SYSVAL       *SYSVAL, *NONE, *USRPRF...    
                                                                                
                                                                                
                                                                                
                                                                                
                                                                         Bottom 
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display    
 F24=More keys

Avec le commade suivante je peux peut-être mettre mon sql et l'utiliser par RUNSQLSTM :

Code :

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

CRTPF FILE(MABIB/MONFIC) RCDLEN(500) FILETYPE(*SRC) REUSEDLT(*NO)

**K2R400** · 23/09/2009, 14h48

sous PDM il faut créer un membre pas une biliothèque.
STRPDM puis option 3
QCLSRC
puis F6

ou mieux :

STRSEU puis F4

STRSEU SRCFILE(mabib/QCLSRC) SRCMBR(MONmembre) TYPE(TXT)