Salut ! 8-))

Osez vous étaler sur la place publique, on adore. Mais LISEZ LE POST-IT avant de poster pour la première fois :-)

Modérateur : Politburo

Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Salut ! 8-))

Message par Cl_&_JM_64 »

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 :D
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é ! :wink:
Quand je parle d'esprit critique, j'entends par là prendre du recul et essayer de comprendre/analyser. C'est pas négatif. :mrgreen:
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.
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8385
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: Salut ! 8-))

Message par badaze »

Benvenuto !

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.
Avatar du membre
Danny
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1248
Enregistré le : 28 déc. 2013 16:34

Re: Salut ! 8-))

Message par Danny »

Welcome, et vive le gâteau basque :slime:
? Apple, Atari, Canon, Casio, ????????????, HP, Psion, Sharp, Tandy... même TI.
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

badaze a écrit : 31 oct. 2021 14:00 Benvenuto !

Tes amassements vont de où à où ?
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.) :D

A plus tard !
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

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 ! :wink:
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

hé oui ! :mrgreen:

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.
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8385
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: Salut ! 8-))

Message par badaze »

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.
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

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 )
Avatar du membre
Over_score
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 168
Enregistré le : 26 mars 2019 14:55
Localisation : Pas loin de Smartville

Re: Salut ! 8-))

Message par Over_score »

badaze a écrit : 31 oct. 2021 16:18 J’ai surtout travaillé sur AS400 et là aussi même si c’est pas beau c’est fiable et robuste !
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;
Avatar du membre
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3626
Enregistré le : 06 sept. 2011 14:57
Localisation : Normandie

Re: Salut ! 8-))

Message par Hobiecat »

Bienvenue !
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

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,...)
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

@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 :mrgreen: 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 :D

Le plus gros problème qu'elle me cause est de trouver un carton et ce qui va avec pour l'expédier.
Avatar du membre
phm
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1361
Enregistré le : 08 avr. 2016 18:36
Localisation : Est Parisien

Re: Salut ! 8-))

Message par phm »

bienvenue :D
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
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8385
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: Salut ! 8-))

Message par badaze »

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 :mrgreen: 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 :D

Le plus gros problème qu'elle me cause est de trouver un carton et ce qui va avec pour l'expédier.
Ben. Si tu donnes je me mets sur les rangs. Et en plus j’ai une HP 41C !
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.
Cl_&_JM_64
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 10
Enregistré le : 31 oct. 2021 11:24

Re: Salut ! 8-))

Message par Cl_&_JM_64 »

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 !
Répondre

Retourner vers « Présentation »