        CATALS   U.ARQ991

 DCL DELAY BUILTIN;
 DCL SYSPRINT FILE PRINT;
 DCL OPCIO1 CHAR(1) INIT('');
 DCL OPCIO2 CHAR(1) INIT('');
 DCL PES   CHAR(1) INIT('');
 DCL ALAN  CHAR(4) INIT('ZZZZ');
 DCL OPCIO1_2 CHAR(1) INIT('');
 DCL OPCIO2_2 CHAR(1) INIT('');
 DCL PES_2   CHAR(1) INIT('');
 DCL ALAN_2  CHAR(4) INIT('ZZZZ');

 DCL REGWEB_SAL     CHAR(31600) BASED(PTRDSAL);
 DCL 1 INFO_0001,
      2 NUMREG_0001        PIC '(6)9' INIT (000001),
      2 LNGREG_0001        PIC '(6)9';

 DCL 1 INFO_0011,
      2 NUMREG_0011        PIC '(6)9' INIT (000011),
      2 LNGREG_0011        PIC '(6)9';

 DCL 1 REGENT BASED(PTRDENT),
     2 NUMREG_1      PIC '(6)9',
     2 LNGREG_1      PIC '(6)9', /* S DE 10 */
     2 REGWEB_1      CHAR(10),
     2 NUMREG_2      PIC '(6)9',
     2 LNGREG_2      PIC '(6)9',
     2 REGWEB_2      CHAR(10);   /* S DE 10 */

 /* MOVEM L'AREA REBUDA AL REGISTRE WW0011 */
 WW0001 = '';
 STRING(WW0001) = REGWEB_1;
 OPCIO1 = WW0001.OPCIO1;
 OPCIO2 = WW0001.OPCIO2;
 WW0011 = '';
 STRING(WW0011) = REGWEB_2;
 OPCIO1 = WW0011.OPCIO1;
 OPCIO2 = WW0011.OPCIO2;
 WW0001.RESPOS = 'RESP0001';
 WW0011.RESPOS = 'RESP0011';
 LNGREG_0001 = 10;
 LNGREG_0011 = 10;
 REGWEB_SAL  =  STRING(INFO_0001) || STRING(WW0001) ||
                STRING(INFO_0011) || STRING(WW0011);
 /* @WEBERROR('RED',1368,WW0001@@.RESPOS@@); */
 LONGMS  = STG(WW0001);
 LONGMS  = 24 + LONGMS + STG(WW0011);

 EXEC CICS XCTL PROGRAM('STS016');

 END ARQ991;
