Discussion :

[dxavier]

Bonjour,

Je souhaite créer dans une commande CL un fichier contenant le nom d'une machine en ascii.
J'ai d'abord essayer les commandes :

Code :

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

1
2
3
4
5
6
7
             CHGVAR     VAR(&SUPERCMD) VALUE('QSH CMD(''touch -C 850 +
                            /monrepertoire/fichier.txt'')')
             CHGVAR     VAR(&LEN) VALUE(2000)
             CHGVAR     VAR(&SUPERCMD) VALUE('QSH CMD(''echo ' *BCAT &SERVER +
                            *BCAT '> /monrepertoire/fichier.txt'')')
             CHGVAR     VAR(&LEN) VALUE(2000)

J'ai essayé avec pour la redirection > ou >> (je me suis dit que peut-être > recrée un fichier avec un CCID générique), et également avec setccsid, mais le fichier est toujours en EBCDIC.
Alors J'ai essayé de le convertir avec :

Code :

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

1
2
3
4
5
             CHGVAR     VAR(&SUPERCMD) VALUE('QSH CMD(''iconv -f 297 +
                            -t 850 /monrepertoire/fichier.txt +
                            -o /monrepertoire/fichier2.txt'')')
             CHGVAR     VAR(&LEN) VALUE(2000)

Mais j'ai le message d'erreur :

iconv: 001-0023 Error found opening file /monrepertoire/fichier.txt.
Press ENTER to end terminal session.

Merci pour vos eclaircissements.

[dxavier]

Répondre. Bon j'ai trouvé j'ai bêtement oublié le :
CALL PGM(QCMDEXC) PARM(&SUPERCMD &LEN)
Après la commande touch - 850 ...

[Green Hornet]

c'était pour faire quoi par curiosité?