Salut ! 8-))
Modérateur : Politburo
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Salut ! 8-))
Bonjour
prénom: Jean-Marie
région: Sud-Ouest
Silicium: tombé dedans depuis les cartes perforées et les télétypes en guise d'écrans
Intérêts autres: électronique, photo (préférence argentique), voyages, lecture de temps à autres. sports mécaniques (jadis), archi, bricolage.
Curieux de tout, esprit critique et auto-critique prononcé !
Quand je parle d'esprit critique, j'entends par là prendre du recul et essayer de comprendre/analyser. C'est pas négatif.
Après avoir beaucoup amassé (en tous genres), je commence à 'vider' donc quelques dons en perspectives.
Voilà, si quelqu'un désire des précisions ...
A bientôt le plaisir de discuter au fil des messages !
ps: si quelqu'un sait ce qu'est devenu le centre de calcul de la rue Erasme (Paris) où j'ai passé des UV, ce serait sympa.
prénom: Jean-Marie
région: Sud-Ouest
Silicium: tombé dedans depuis les cartes perforées et les télétypes en guise d'écrans
Intérêts autres: électronique, photo (préférence argentique), voyages, lecture de temps à autres. sports mécaniques (jadis), archi, bricolage.
Curieux de tout, esprit critique et auto-critique prononcé !
Quand je parle d'esprit critique, j'entends par là prendre du recul et essayer de comprendre/analyser. C'est pas négatif.
Après avoir beaucoup amassé (en tous genres), je commence à 'vider' donc quelques dons en perspectives.
Voilà, si quelqu'un désire des précisions ...
A bientôt le plaisir de discuter au fil des messages !
ps: si quelqu'un sait ce qu'est devenu le centre de calcul de la rue Erasme (Paris) où j'ai passé des UV, ce serait sympa.
Modifié en dernier par Cl_&_JM_64 le 31 oct. 2021 14:52, modifié 1 fois.
- badaze
- Fonctionne à 14400 bauds
- Messages : 8412
- Enregistré le : 12 févr. 2007 18:36
- Localisation : Pas très loin de Lyon
- Contact :
Re: Salut ! 8-))
Benvenuto !
Tes amassements vont de où à où ?
Tes amassements vont de où à où ?
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Re: Salut ! 8-))
Welcome, et vive le gâteau basque
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
PDAs, 1 imprimante HP pour calculatrice HP (attendre que je rentre ce soir pour lire la ref dessous) , pièces PC et docs techniques de solutions d'impression), mac portable , pièces d'imprimantes / traceurs ... faut que je vide le capharnaüm et fasse l'inventaire.
(Je garde mon projet d'étude sur 8 pouces et listing 132 col.)
A plus tard !
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
Il portait sur la gestion d'accès aux impression de documents confidentiels avec une base Cobol sur un système 34 ou 36 et son imprimante ligne.
Depuis on fait plus simple et c'est intégré aux imprimantes professionnelles avec gestion de code PIN. Il existe aussi des systèmes de badgeuses (plus lourd et, à une époque, buggés).
Je les regrette ces 34 et 36, pas très sexy pour notre époque, mais quelle robustesse logicielle, et quelle boite à outils logicielle !
Depuis on fait plus simple et c'est intégré aux imprimantes professionnelles avec gestion de code PIN. Il existe aussi des systèmes de badgeuses (plus lourd et, à une époque, buggés).
Je les regrette ces 34 et 36, pas très sexy pour notre époque, mais quelle robustesse logicielle, et quelle boite à outils logicielle !
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
hé oui !
mais, à quelques pas des consoles 34 36 38, dans d'autres salles, trainaient quelques Micral en Prologue, des M24, etc
Je dois avouer que je n'ai pas aimé le 38 et son GAP II/III , probablement par manque de temps de se pencher sérieusement dessus.
Sacré époque qui me laisse de ces souvenirs... que les jeunes ne peuvent même pas concevoir.
mais, à quelques pas des consoles 34 36 38, dans d'autres salles, trainaient quelques Micral en Prologue, des M24, etc
Je dois avouer que je n'ai pas aimé le 38 et son GAP II/III , probablement par manque de temps de se pencher sérieusement dessus.
Sacré époque qui me laisse de ces souvenirs... que les jeunes ne peuvent même pas concevoir.
- badaze
- Fonctionne à 14400 bauds
- Messages : 8412
- Enregistré le : 12 févr. 2007 18:36
- Localisation : Pas très loin de Lyon
- Contact :
Re: Salut ! 8-))
J’ai surtout travaillé sur AS400 et là aussi même si c’est pas beau c’est fiable et robuste !
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
Je te crois très volontiers , mais je ne retrouve pas cette robustesse dans les systèmes actuels.
J'ai testé (j'ai peut-être encore les disquettes) Concurrent DOS /386, un très beau projet arrivé trop tard.
Par contre, un daube complète: MP/M ( sur ADD/X )
J'ai testé (j'ai peut-être encore les disquettes) Concurrent DOS /386, un très beau projet arrivé trop tard.
Par contre, un daube complète: MP/M ( sur ADD/X )
- Over_score
- Fonctionne à 300 bauds
- Messages : 171
- Enregistré le : 26 mars 2019 14:55
- Localisation : Pas loin de Smartville
Re: Salut ! 8-))
Idem ici, mais c'est tout de même devenu un peu plus beau ces dernières années avec la version **free des programmes RPGLE. Par exemple :
Code : Tout sélectionner
**free
// DÉBUT DES INSTRUCTIONS DE COMPILATION
// nbc = &nbs
// noc = &nms
// toc = *PGM
// crtrpgmod module(&nbc/&noc) srcfile(&nbs/&nfs) srcmbr(&nms) optimize(*basic) option(*nodebugio *srcstmt *nounref *eventf) dbgview(*stmt) indent('¡ ')
// crtpgm pgm(&nbc/&noc) module(&nbc/&noc) actgrp(pgmlrg)
// FIN DES INSTRUCTIONS DE COMPILATION
//*****************************************
//* Impression d'étiquette pour la GED *
//*****************************************
ctl-opt bnddir('UTILSRVPGM/UTILBNDDIR');
dcl-f etiqged$ workstn extdesc('UTIL/ETIQGED$') extfile(*extdesc);
dcl-f etiqged keyed usage(*input:*update) extdesc('UTIL/ETIQGED');
/copy utilsrvpgm/qsrvprotot,conv_mm_pt
/copy utilsrvpgm/qsrvprotot,convnumch
/copy utilsrvpgm/qsrvprotot,fichifs£
/copy utilsrvpgm/qsrvprotot,afftxt£
/copy utilsrvpgm/qsrvprotot,qcmdexc
/copy utilsrvpgm/qsrvprotot,inttxt
/copy util/qsrcprotot,usagepgm
dcl-s lg varchar(1200);
dcl-s nomFichier varchar( 200);
dcl-s imprimante char(10);
dcl-s typeImpr char(10);
dcl-s numero char(12);
dcl-s numero2 char(15);
dcl-s fichierEtiq int(10);
dcl-s nbrEtiq int(10);
dcl-s nbrDeFront int(10);
dcl-s i int(10);
dcl-s cb int(20);
dcl-pi main extpgm;
utilisat char(10);
numTrav char( 6);
end-pi;
usagepgm('UTIL':'ETIQGED£');
chain utilisat etiqged;
if not %found(etiqged);
chain 'IMPPARDEF ' etiqged;
if not %found(etiqged);
egImpr = 'BAFOPREP4 ';
endif;
endif;
imprimante = egImpr;
typeImpr = 'ZT220 ';
nbrEtiq = 0;
nbr = 0;
nbrDeFront = 6;
dow 1=1;
exfmt f1;
if *inkc;
*inlr = *on;
return;
endif;
if *inke;
nbrEtiq = nbr;
leave;
endif;
if *inkh;
exsr codeDeConfig;
endif;
enddo;
chain '!COMPTEUR ' etiqged;
dow nbrEtiq>0;
nomFichier = '/home/EPL2/' + %trim(utilisat) + '-' + %trim(numTrav) + '.epl';
fichierEtiq = openIfs(nomFichier:o_creat+o_wronly+o_codepage:(rd+wr)*owner + (rd+wr)*group + rd*public:858); // 858 = 850 avec Euro = ASCII PC
if fichierEtiq<0;
//Faire : dspmsgd range(cpe errno()) msgf(qcpfmsg)
lg = 'Faire : dspmsgd range(cpe' + %char(errno()) + ') msgf(qcpfmsg)';
affTxt(lg:'':'');
*inlr = *on;
return;
endif;
closeIfs(fichierEtiq);
fichierEtiq = openIfs(nomFichier:o_append+o_wronly+o_textdata); //Réouverture en mode texte pour conversion EBCDIC ==> Windows
if typeImpr='ZT220 ';
//****************************
//* Imprimante Zebra ZT220 *
//****************************
lg = 'N' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
// Hauteur de l'étiquette et hauteur de l'intervalle entre 2 étiquettes
lg = 'Q' + conv_zebra(36,0) + ',' + conv_zebra(2) + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
// Largeur de l'étiquette
lg = 'q' + conv_zebra(89,0) + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'R0,0' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'S2' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'D10' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'ZB' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
for i=1 to nbrDeFront;
// Le code à barres
egDerNum += 1;
nbrEtiq -= 1;
cb = egDerNum;
numero = int20txt(cb:'%12lld');
lg = 'B' + conv_zebra(-2,0 + 14*i) + ',' + conv_zebra(2,0) + ',1,2,2,5,' + conv_zebra(8,0) + ',N,"' + numero + '"' + crLf; // Le code à barres
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
numero2 = %subst(numero: 1:3) + ' ' +
%subst(numero: 4:3) + ' ' +
%subst(numero: 7:3) + ' ' +
%subst(numero:10:3);
lg = 'A' + conv_zebra(-10,5 + 14*i) + ',' + conv_zebra(4,0) + ',1,3,1,1,N,"' + numero2 + '"' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
endfor;
lg = 'P1';
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
endif;
closeIfs(fichierEtiq);
lg = 'prtraw ifsfile(''' + nomFichier + ''') outq(qusrsys/' + %trimr(imprimante) + ') type(*epl)';
//affTxt(lg:'':'');
qCmdExc(lg:%len(lg));
unlinkIfs(nomFichier);
enddo;
update retiqged;
*inlr = *on;
begsr codeDeConfig;
nomFichier = '/home/EPL2/' + %trim(utilisat) + '-' + %trim(numTrav) + '.epl';
fichierEtiq = openIfs(nomFichier:o_creat+o_wronly+o_codepage:(rd+wr)*owner + (rd+wr)*group + rd*public:858); // 858 = 850 avec Euro = ASCII PC
if fichierEtiq<0;
//Faire : dspmsgd range(cpe errno()) msgf(qcpfmsg)
lg = 'Faire : dspmsgd range(cpe' + %char(errno()) + ') msgf(qcpfmsg)';
affTxt(lg:'':'');
*inlr = *on;
return;
endif;
closeIfs(fichierEtiq);
fichierEtiq = openIfs(nomFichier:o_append+o_wronly+o_textdata); //Réouverture en mode texte pour conversion EBCDIC ==> Windows
if typeImpr='ZT220 ';
//****************************
//* Imprimante Zebra ZT220 *
//****************************
lg = 'N' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
// Hauteur de l'étiquette et hauteur de l'intervalle entre 2 étiquettes
lg = 'Q' + conv_zebra(36,0) + ',' + conv_zebra(2) + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
// Largeur de l'étiquette
lg = 'q' + conv_zebra(89,0) + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'R0,0' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'S2' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'D10' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'ZB' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'B' + conv_zebra(20,0) + ',' + conv_zebra( 2,0+38,0*0) + ',0,1,4,8,' + conv_zebra(20,0) + ',N,"0B"' + crLf; // Réinit config
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'A' + conv_zebra(20,0) + ',' + conv_zebra(25,0+38,0*0) + ',0,4,1,1,N,"Réinit config (NT-2012)"' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'B' + conv_zebra(20,0) + ',' + conv_zebra( 2,0+38,0*1) + ',0,1,4,8,' + conv_zebra(20,0) + ',N,"0005009"' + crLf; // clavier français
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'A' + conv_zebra(20,0) + ',' + conv_zebra(25,0+38,0*1) + ',0,4,1,1,N,"Clavier français (NT-2012)"' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'B' + conv_zebra(20,0) + ',' + conv_zebra( 2,0+38,0*2) + ',0,1,4,8,' + conv_zebra(20,0) + ',N,"0B20201"' + crLf; // Pas de suffixe
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'A' + conv_zebra(20,0) + ',' + conv_zebra(25,0+38,0*2) + ',0,4,1,1,N,"Pas de suffixe (NT-2012)"' + crLf;
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
lg = 'P1';
writeIfs(fichierEtiq:%addr(lg:*data):%len(lg));
endif;
closeIfs(fichierEtiq);
lg = 'prtraw ifsfile(''' + nomFichier + ''') outq(qusrsys/' + %trimr(imprimante) + ') type(*epl)';
//affTxt(lg:'':'');
qCmdExc(lg:%len(lg));
unlinkIfs(nomFichier);
endsr;
- Hobiecat
- Fonctionne à 9600 bauds
- Messages : 3644
- Enregistré le : 06 sept. 2011 14:57
- Localisation : Normandie
Re: Salut ! 8-))
Bienvenue !
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
tant qu'on est dans les bons gros souvenirs, pour les immortaliser, je déplore qu'aucune boite n'a pensé à les proposer en maquettes, pourtant:
Cray One, Cray XMP, IBM 34 / 36 / 38, series , 43xx, AS400 et j'en passe ont tous été là à la besogne, ont fait parler d'eux (en bien !)
ainsi que leurs périph. : imprimantes ligne, dérouleurs de bandes, consoles...
J'en oublie au passage (Unisys, Bull, HP, DEC,...)
Cray One, Cray XMP, IBM 34 / 36 / 38, series , 43xx, AS400 et j'en passe ont tous été là à la besogne, ont fait parler d'eux (en bien !)
ainsi que leurs périph. : imprimantes ligne, dérouleurs de bandes, consoles...
J'en oublie au passage (Unisys, Bull, HP, DEC,...)
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
@badaze :
l'imprimante est une HP 82240A , sans transfo (mais je pense que ce n'est pas un pb) , comme les 4 piles ne sont pas là elles n'ont pas eu le bonheur de couler le papier est chargé, donc yapuka mettre 4 AA alcalines et tester (de préférence avec une 41 , ça lui ferait plaisir...
C'est pourquoi je donne. Elle a pour moi l'immense qualité d'avoir la vraie couleur HP
Le plus gros problème qu'elle me cause est de trouver un carton et ce qui va avec pour l'expédier.
l'imprimante est une HP 82240A , sans transfo (mais je pense que ce n'est pas un pb) , comme les 4 piles ne sont pas là elles n'ont pas eu le bonheur de couler le papier est chargé, donc yapuka mettre 4 AA alcalines et tester (de préférence avec une 41 , ça lui ferait plaisir...
C'est pourquoi je donne. Elle a pour moi l'immense qualité d'avoir la vraie couleur HP
Le plus gros problème qu'elle me cause est de trouver un carton et ce qui va avec pour l'expédier.
- phm
- Fonctionne à 2400 bauds
- Messages : 1365
- Enregistré le : 08 avr. 2016 18:36
- Localisation : Est Parisien
Re: Salut ! 8-))
bienvenue
HEWLETT-PACKARD : The best
CANON X-07 X-730 X-711 XR-100 XM-101 XP-110F XP-120F XP-130F XP-140
AMSTRAD CPC-464 CPC-6128 ATARI STF DAI Indata
CANON X-07 X-730 X-711 XR-100 XM-101 XP-110F XP-120F XP-130F XP-140
AMSTRAD CPC-464 CPC-6128 ATARI STF DAI Indata
- badaze
- Fonctionne à 14400 bauds
- Messages : 8412
- Enregistré le : 12 févr. 2007 18:36
- Localisation : Pas très loin de Lyon
- Contact :
Re: Salut ! 8-))
Ben. Si tu donnes je me mets sur les rangs. Et en plus j’ai une HP 41C !Cl_&_JM_64 a écrit : ↑31 oct. 2021 19:46 @badaze :
l'imprimante est une HP 82240A , sans transfo (mais je pense que ce n'est pas un pb) , comme les 4 piles ne sont pas là elles n'ont pas eu le bonheur de couler le papier est chargé, donc yapuka mettre 4 AA alcalines et tester (de préférence avec une 41 , ça lui ferait plaisir...
C'est pourquoi je donne. Elle a pour moi l'immense qualité d'avoir la vraie couleur HP
Le plus gros problème qu'elle me cause est de trouver un carton et ce qui va avec pour l'expédier.
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
-
- Fonctionne à 75 bauds
- Messages : 10
- Enregistré le : 31 oct. 2021 11:24
Re: Salut ! 8-))
merci
je vois que de nombreux membres ont des pêchés communs:
X-07 , PC-2 (=PC-1500) , CPC-464 , Atari ST, .... mais je n'ai pas encore aperçu d'amateur d' ORIC-1 ou de ZX-80 : ça viendra !
je vois que de nombreux membres ont des pêchés communs:
X-07 , PC-2 (=PC-1500) , CPC-464 , Atari ST, .... mais je n'ai pas encore aperçu d'amateur d' ORIC-1 ou de ZX-80 : ça viendra !