Want to string a series of fields

grabeva · New User Joined: 07 Sep 2006 Posts: 23

i need help please......i can't do it.....

i want to string a series of fields.....but not function well...

1) at the first example, de action is: complete all field with caracter '?'
2) if i change with:
' ' DELIMITED BY ' ' complete with blank a total of field en string
3) if ia change with
' ' DELIMITED BY ' '(two blank) the same....

i want to look like this:

' OK?3601?00000?FTPE?0?01?04200?2?3'

move 1 to AUX-LENG-MSG
STRING
S-OK-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
RE-NROMEN-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
RE-RETORNO-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
S-TRAN-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
RE-HAY-MAS-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
RE-CANT-OCCUR-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
S-TABLA-3601(1:S-CANT-OCCUR-3601) DELIMITED
'?' DELIMITED BY '?'
RE-BOTONES-3601 DELIMITED BY SIZE
'?' DELIMITED BY '?'
INTO AREA-MENS-SALIDA
POINTER AUX-LENG-MSG

field definition:

01 AREA-MENS-SALIDA.
05 S-OK-3601 PIC X(5) VALUE SPACES.
05 S-NROMEN-3601 PIC 9(4).
05 RE-NROMEN-3601 REDEFINES S-NROMEN-3601 PIC X(4).
05 S-RETORNO-3601 PIC 9(5).
05 RE-RETORNO-3601 REDEFINES S-RETORNO-3601 PIC X(5).
05 S-TRAN-3601 PIC X(4).
05 S-HAY-MAS-3601 PIC 9.
05 RE-HAY-MAS-3601 REDEFINES S-HAY-MAS-3601 PIC X.
05 S-CANT-OCCUR-3601 PIC 9(2).
05 RE-CANT-OCCUR-3601 REDEFINES S-CANT-OCCUR-3601 PIC XX.
05 S-TABLA-3601.
07 S-LINEA-DETALLE OCCURS 25.
09 COD-OF-GRU-RICS8705 PIC 9(5).
09 RE-COD-OF-GRU-RICS8705 REDEFINES
COD-OF-GRU-RICS8705 PIC X(5).
09 filler PIC X value spaces.
09 I-ESTG2180-RICS8705 PIC 9.
09 filler PIC X value spaces.
09 IND-SUC-OL-RICS8705 PIC 9.
09 filler PIC X value spaces.
05 S-BOTONES-3601 PIC 9.
05 RE-BOTONES-3601 REDEFINES S-BOTONES-3601 PIC X .

Marso · Posted: Wed Sep 20, 2006 8:39 pm

I think you should use:

grabeva · New User Joined: 07 Sep 2006 Posts: 23

its no ok....look it...

01 AREA-MENS-SALIDA PIC X(272) ADDR 187
VALUE > OK????????????????????????0?00000?0?0?00000?0?0
+50 > ?00000?0?0?00000?0?0?00000?0?0?00000?0?0?00000?0?0
+100 > ?00000?0?0?00000?0?0?00000?0?0?00000?0?0?00000?0?0
+150 > ?00000?0?0?00000?0?0?00000?0?0?00000?0?0?00000?0?0
+200 > ?00000?0?0?00000?0?0?00000?0?0?00000?0?0?00000?0?0
+250 > ?00000?0?0?00000?0?0?0 <

complete all the first field with '?'

with this code:(look that the first field i need to see ' OK' with 3 blanks before....for that i write delimited by size.
STRING
S-OK-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
lo incluye
'?' DELIMITED BY '?'
' ' DELIMITED BY ' '
RE-NROMEN-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
RE-RETORNO-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
S-TRAN-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
RE-HAY-MAS-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
RE-CANT-OCCUR-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
S-TABLA-3601(1:S-CANT-OCCUR-3601) DELIMITED BY SIZE
'?' DELIMITED BY size
RE-BOTONES-3601 DELIMITED BY SIZE
'?' DELIMITED BY size
INTO AREA-MENS-SALIDA
POINTER AUX-LENG-MSG

Marso · Posted: Thu Sep 21, 2006 3:22 pm

I'm not sure what you mean by: