BillyBoyo wrote:deen67, are you processing a file of what was DFHCOMMAREA or are you doing it in CICS?
yes, got the file from DFHCOMMAREA. at the moment i'm using enrico's method. it's works. managed to split the var part but still try to figure out how to use unstring verb. thanks for those who helped me.
just a question for unstring syntax, want to know is't valid or not in cobol. let's say the string contains like this
STRING1 = "CMNOW_REF_NO=1820101010101~CMNOW_CATEGORY=1~CMNOW_NEW_ID=820101010101~CMNOW_OLD_ID=A181814~CMNOW_POLICE_ID=X"
01. String1.
05 Temp-col-val occurs pic x(100) occurs 10 times
perform varying ctr1 until < length of STRING1
add 1 to ctr1
unstring string1 delimited by '~'
into temp-col-val(ctr1)
end-perform
will my output like this
temp-col-val(1) = CMNOW_REF_NO=1820101010101
temp=col-val(2) = CMNOW_CATEGORY=1
temp-col-val(3) = CMNOW_NEW_ID=820101010101
and bla bla bla
is there any possible to use 1 unstring command to get output like this from STRING1
temp-col(1)=CMNOW_REF_NO
temp-val(1)=1820101010101
temp-col(2)=CMNOW_CATEGORY
temp-val(2)=1
temp-col(3)=CMNOW_NEW_ID
temp-val(3)=820101010101