        CATALS   P.ARQP12                                               00010000
                                                                        00010100
 DCL (INDEX,SUBSTR,DATE,STG,LENGTH,PLIRETV,LOW,ROUND,                   00010200
      VERIFY,TRANSLATE,POINTERADD,HIGH,MOD,                             00010300
      ADDR,STRING,ONCODE,PLIDUMP,PLIRETC) BUILTIN;                      00010400
                                                                        00010500
 DCL SYSPRINT FILE STREAM OUTPUT PRINT;                                 00010600
 DCL SYSIN    FILE STREAM INPUT;                                        00010700
                                                                        00010800
 DCL 1 TAULA,                                                           00013700
     2 TO(20)      CHAR(080),                                           00013800
     2 CC(20)      CHAR(080),                                           00013900
     2 BCC(20)     CHAR(080),                                           00014000
     2 LTX(20)     CHAR(080),                                           00014100
     2 ATT(20)     CHAR(080);                                           00014200
                                                                        00014400
 DCL RTO           CHAR(080);                                           00014500
 DCL FROM          CHAR(080);                                           00015000
 DCL ident_traza   CHAR(080);                                           00015100
 DCL ENVIOS        BIN FIXED(15) INIT(0);                               00016000
 DCL I             BIN FIXED(15) INIT(0);                               00016100
 DCL CONTPL        BIN FIXED(15) INIT(0);                               00016200
                                                                        00017000
 DCL user_connect  CHAR(80) init('');                                   00017100
 user_connect = 'cos@generali';                                         00017200
                                                                        00017300
 DCL unet          CHAR(080) INIT('');                                  00017400
                                                                        00017500
 DCL 1 sms UNALIGNED,                                                   00017600
         2 YIDIO2         CHAR(2),                                      00017700
         2 YDATHO         CHAR(12),                                     00017800
         2 YMSGER         CHAR(100),                                    00018000
         2 YCODIF         CHAR(7);                                      00018100
                                                                        00018200
 /*KR5511.AWKSMS = addr(sms);*/                                         00018300
                                                                        00018400
 TAULA.TO(*)  = '';                                                     00018500
 TAULA.CC(*)  = '';                                                     00018600
 TAULA.BCC(*) = '';                                                     00018700
 TAULA.LTX(*) = '';                                                     00018800
 TAULA.ATT(*) = '';                                                     00018900
                                                                        00019000
 dcl 1 taula_pl(20),                                                    00019200
       2 nomvar     char(80) var,                                       00019300
       2 valvar     char(500) var;                                      00019400
                                                                        00019500
 taula_pl.nomvar(*) = '';                                               00019700
 taula_pl.valvar(*) = '';                                               00019800
                                                                        00020400
 /* taula_pl(1).nomvar = 'pruebas_sender_c';                            00020500
 taula_pl(1).valvar = '            ';                                   00020600
                                                                        00020700
 taula_pl(2).nomvar = 'clausulaAurora2';                                00020800
 taula_pl(2).valvar = ' compa&ntilde;&iacute;a.<br /><br />';           00020900
                                                                        00021000
 taula_pl(3).nomvar = 'var2';                                           00021100
 taula_pl(3).valvar = 'Jordi Ballest plantilla a rasss ojo se cierra'; 00021500
                                                                        00022900
 taula_pl(4).nomvar = 'var3';                                           00023000
 taula_pl(4).valvar = 'Final plantilla'; */                             00023100
                                                                        00023200
 /*CONTPL = 4;*/                                                        00023300
 CONTPL = 0;                                                            00023400
 @INCLUDE HIEST090;                                                     00023501
                                                                        00023600
   DCL 1 PARAMETROS BASED(ADDR(PARM)),                                  00023700
         2 PAR_LONG           BIN FIXED(15),                            00023800
         2 PAR_TIPUS          CHAR(1);                                  00023900
                                                                        00024000
 /* unificacio amb sms */                                               00024100
 kr5511.yemtds = par_tipus;                                             00024200
 /* ------------------- */                                              00024300
 /* proces */                                                           00024400
 if (kr5511.yemtds = 'E') | (kr5511.yemtds = ' ') Then                  00024500
   do;                                                                  00024600
                                                                        00024700
      ident_traza = datetime;                                           00024800
      ident_traza = '';                                                 00024900
      /* FI -- PUTS REGISTRE KR5511 */                                  00025000
      get file(sysin) data(kr5511.nemto,                                00025100
                           kr5511.nemcc,                                00025200
                           kr5511.nembcc,                               00025300
                           kr5511.nemltx,                               00025400
                           kr5511.nemdsa,                               00026000
                           kr5511.wemsub,                               00027000
                           envios,                                      00028000
                           rto,                                         00060000
                           from,                                        00070000
                           contpl,                                      00071000
                           kr5511.wdesdc,                               00071100
                           kr5511.pathpl,                               00071200
                           kr5511.attbex,                               00071300
                           kr5511.dexpeb,                               00071400
                           kr5511.zbex,                                 00071500
                           kr5511.zlink,                                00071600
                           kr5511.yemcon,                               00071700
                           unet,                                        00071800
                           taula.to,                                    00071900
                           taula.cc,                                    00072000
                           taula.bcc,                                   00072100
                           taula.ltx,                                   00072200
                           taula.att);                                  00073000
      kr5511.atemto = addr(taula.to(1));                                00090000
      kr5511.atemcc = addr(taula.cc(1));                                00100000
      kr5511.atembc = addr(taula.bcc(1));                               00110000
      kr5511.atemlt = addr(taula.ltx(1));                               00120000
      kr5511.atemda = addr(taula.att(1));                               00130000
      kr5511.aemrto = addr(rto);                                        00140000
      kr5511.aemfro = addr(from);                                       00150000
      /* Nou diferent a 5006 */                                         00150100
      /*kr5511.aeunet = addr(user_connect);*/                           00153000
      kr5511.aeunet = addr(unet);                                       00153100
      kr5511.aempla = addr(taula_pl);                                   00154000
      kr5511.nemvar = contpl;                                           00155000
      kr5511.amthtm = addr(ident_traza);                                00156000
      do i=1 to envios while (pliretv = 0);                             00160000
         call stsr69(arqr12,kr5511,kr3803,fdate);                       00170000
    put skip list('ARQp12 - crida ' || i || ' codi ' || kr3803.mqresp); 00180000
      end;                                                              00190000
   end;                                                                 00200000
  else                                                                  00201000
   do;  /* SMS */                                                       00202000
      ident_traza = '';                                                 00202100
      get file(sysin2) data(envios,                                     00203000
                           kr5511.nemto,                                00204000
                           kr5511.nemltx,                               00205000
                           kr5511.ymtid,                                00206000
                           kr5511.ycli,                                 00207000
                           sms.yidio2,                                  00208000
                           sms.ydatho,                                  00209000
                           kr5511.yemcon,                               00209100
                           sms.ycodif,                                  00209200
                           from,                                        00209300
                           unet,                                        00209400
                           taula.to,                                    00209500
                           taula.ltx);                                  00209600
      kr5511.atemto = addr(taula.to(1));                                00209700
      kr5511.atemlt = addr(taula.ltx(1));                               00209800
      kr5511.aemfro = addr(from);                                       00209900
      kr5511.aeunet = addr(unet);                                       00210000
      kr5511.amthtm = addr(ident_traza);                                00210100
      KR5511.AWKSMS = addr(sms);                                        00210200
    put skip list('taula.ltx=' || taula.ltx(1) || '<fi>');              00210300
      do i=1 to envios while (pliretv = 0);                             00210400
         call stsr69(arqr12,kr5511,kr3803,fdate);                       00210500
    put skip list('ARQP10 - crida ' || i || ' codi ' || kr3803.mqresp); 00210600
      end;                                                              00210700
   end;                                                                 00210800
                                                                        00210900
 fi:                                                                    00211000
 END ARQP12;                                                            00220000
