Cobol - mf cobol line sequetial sequential

Author

mf cobol line sequetial sequential

ribjo

2006-10-18, 7:55 am

Hello all,

I'm working with hp-ux on IA64, mf cobol server express 4 on mainframe
migrations.

The reports (files) resulting from cobol programs look great on
printers! But...

When the last element of the record is pic x, mf cobol truncates on
spaces!

We are working with line sequential and the problem is that when the
output file is data (input for another program) we need
"line-sequential-fixed-record"! How can we get that?

Next I present our compile script zoomed to cob32:
--cut--
cob32 \
-C SEQUENTIAL=LINE \
-C PERFORM-TYPE=COB370 \
-C IBMCOMP \
-C SPZERO \
-C nolist \
-C progid-comment \
-C assign=external \
-C NOBOUND \
-C OLDNEXTSENTENCE \
-x -g -U -o $1.bin $1.cob \
-L${ORACLE_HOME}/lib32/ \
${ORACLE_HOME}/precomp/lib32/cobsqlintf.o \
/usr/local/ditic/vispf/vispf.o \
-lclntsh -lm -lc \
`cat ${ORACLE_HOME}/lib32/ldflags` \
`cat ${ORACLE_HOME}/lib32/sysliblist`
--cut--

Thanks guys!

HeyBub

2006-10-18, 6:55 pm

ribjo wrote:
> Hello all,
>
> I'm working with hp-ux on IA64, mf cobol server express 4 on mainframe
> migrations.
>
> The reports (files) resulting from cobol programs look great on
> printers! But...
>
> When the last element of the record is pic x, mf cobol truncates on
> spaces!
>
> We are working with line sequential and the problem is that when the
> output file is data (input for another program) we need
> "line-sequential-fixed-record"! How can we get that?
>
> Next I present our compile script zoomed to cob32:
> --cut--
> cob32 \
> -C SEQUENTIAL=LINE \
> -C PERFORM-TYPE=COB370 \
> -C IBMCOMP \
> -C SPZERO \
> -C nolist \
> -C progid-comment \
> -C assign=external \
> -C NOBOUND \
> -C OLDNEXTSENTENCE \
> -x -g -U -o $1.bin $1.cob \
> -L${ORACLE_HOME}/lib32/ \
> ${ORACLE_HOME}/precomp/lib32/cobsqlintf.o \
> /usr/local/ditic/vispf/vispf.o \
> -lclntsh -lm -lc \
> `cat ${ORACLE_HOME}/lib32/ldflags` \
> `cat ${ORACLE_HOME}/lib32/sysliblist`
> --cut--
>
> Thanks guys!

http://www.microfocus.com/Resources...0050101-007.asp

See asc2ebc.zip in
http://supportline.microfocus.com/e...ties/nesamp.asp

See Thane Hubbel in
http://www.cobug.com/cobug/docs/codesamples0020.html

and 53,000 other hits in Google on [micro focus cobol line sequential]

ribjo

2006-10-18, 6:55 pm

HeyBub wrote:
> ribjo wrote:
>
> http://www.microfocus.com/Resources.../20050101-007.=
asp
>
> See asc2ebc.zip in
> http://supportline.microfocus.com/e...ties/nesamp.asp
>
> See Thane Hubbel in
> http://www.cobug.com/cobug/docs/codesamples0020.html
>
> and 53,000 other hits in Google on [micro focus cobol line sequential]

Thanks!

I found how to make LINE SEQUENTIAL to work as
"record-line-sequential".
You set up the EXTFH file handler config and my file has this content:
---cut---
[XFH-DEFAULT]
# os ficheiros LINE SEQUENTIAL NAO TRIMAM
STRIPSPACE=3DOFF
# os fcheiros de INPUT nao aplicam lock
OPENINPUTSHARED=3DON
# no read, faz o filler com espa=E7os
SPACEFILL=3DON
# melhor performance nos reads
READSEMA=3DOFF
--cut--

I took the opportunity and made some tuning, hoping to get better
performance on reads as well as better behaviour.
Again, this is not coding, this is migration from mainframe to *nix!

Regards

Klaatu62

2006-10-30, 6:55 pm

Rather than make changes to EXTFH, the other way to do this is simply
make the file a RECORD SEQUENTIAL and add a byte to the end of the
record with a fixed value of x"0A".

This will preserve the trailing blanks and avoid having low values
placed in the record before a character that has a value under x'20'.

Randy

ribjo wrote:
> Hello all,
>
> I'm working with hp-ux on IA64, mf cobol server express 4 on mainframe
> migrations.
>
> The reports (files) resulting from cobol programs look great on
> printers! But...
>
> When the last element of the record is pic x, mf cobol truncates on
> spaces!
>
> We are working with line sequential and the problem is that when the
> output file is data (input for another program) we need
> "line-sequential-fixed-record"! How can we get that?
>
> Next I present our compile script zoomed to cob32:
> --cut--
> cob32 \
> -C SEQUENTIAL=LINE \
> -C PERFORM-TYPE=COB370 \
> -C IBMCOMP \
> -C SPZERO \
> -C nolist \
> -C progid-comment \
> -C assign=external \
> -C NOBOUND \
> -C OLDNEXTSENTENCE \
> -x -g -U -o $1.bin $1.cob \
> -L${ORACLE_HOME}/lib32/ \
> ${ORACLE_HOME}/precomp/lib32/cobsqlintf.o \
> /usr/local/ditic/vispf/vispf.o \
> -lclntsh -lm -lc \
> `cat ${ORACLE_HOME}/lib32/ldflags` \
> `cat ${ORACLE_HOME}/lib32/sysliblist`
> --cut--
>
> Thanks guys!

Sponsored Links