OpenCOBOL Complex ODO (OCCURS DEPENDING ON) -

-

i new cobol(and opencobol) , question "complex-odo" (occurs...depending on) in opencobol.

i used 1.0 on following code

......

01  w-ptdo-proc-tbl.        05  w-ptdo-proc-entry occurs 0 450 times              depending on w-ptdo-proc-max              indexed w-ptdo-proc-indx.            10 w-ptdo-proc-apc        pic x(05).            10 w-ptdo-proc-lnsub      pic s9(07)   comp-3.            10 w-ptdo-proc-key.                15 w-ptdo-proc-wa-offset  pic 9(08)v99.                15 w-ptdo-proc-units      pic 9(09).            10 w-ptdo-proc-device-cnt pic 9(03).            10 w-ptdo-proc-darray occurs 0 450 times                 depending on w-ptdo-darray-max                 indexed w-ptdo-darray-indx.                15  w-ptdo-proc-dhcpcs pic x(05).            10 w-ptdo-darray-size     pic 9(03).            10 w-ptdo-proc-tot-dchrgs pic 9(10)v99.            10 w-ptdo-proc-tot-dunits pic 9(05).            10 w-ptdo-proc-used       pic x(01).

......

and cobc returns error msg:

error: 'w-ptdo-proc-entry' cannot have occurs clause due 'w-ptdo-proc-darray'

and above error msg issued field.c found comment /* data item contains occurs depending clause shall not subordinate data item has occurs clause */

is there anyway make opencobol support "complex-odo"?

my above code snippet, "occurs depending" nested under higher level "occurs" clause, seems well-defined "complex-odo" according appendix of ibm's cobol programming guide.

thank you,

billy rong

you cannot have variable length array (occurs depending on) inside array!

the processing required complex. if length of inner array item allowed vary, possible way calculate start of nth entry of outer array sequentially access each inner member 1 n , use depending on count work out length, and, hence start of next array entry.


Comments

Post a Comment

Popular posts from this blog

linux - Mailx and Gmail nss config dir -

-
i trying send mail linux command line using mailx command. can send local domain no problem want set mail send gmail account receive mail sent gmail account. after configuring mail.rc so: account gmail { set smtp=smtps://smtp.gmail.com:587 set smtp-auth=login set smtp-auth-user=username@gmail.com set smtp-auth-password=password set ssl-verify=ignore } i error: resolving host smtp.gmail.com . . . done. connecting 74.125.25.109 . . . connected. missing "nss-config-dir" variable. "/home/username/dead.letter" 11/354 . . . message not sent. after looking "nss-config-dir" here , located certn.db , keyn.db files , added mail.rc so: account gmail { set smtp=smtps://smtp.gmail.com:587 set smtp-auth=login set smtp-auth-user=username@gmail.com set smtp-auth-password=password set ssl-verify=ignore set nss-config-dir=/home/user/.mozilla/firefox/location.default } now when try send mail using command: echo "sent gmail account" | mailx -v -a
Read more

c# - Is it possible to remove an existing registration from Autofac container builder? -

-
something along lines: builder.registertype<mytype>().as<itype>(); builder.registertype<mytype2>().as<itype>(); builder.deregistertype<mytype>().as<itype>() var container = builder.build(); var types = container.resolve<ienumerable<itype>>(); assert.istrue(types.count == 1); assert.istrue(types[0].gettype == typeof(mytype2)); scenario: go through bunch of assemblies , go register types want make sure have 1 implementation of given type. need before create container. track on own nice if autofac me bit. this cannot done directly using containerbuilder , unless start on new one. mind you, having first built container should able construct new container filtering away unwanted types , reusing registrations first container. this: ... var container = builder.build(); builder = new containerbuilder(); var components = container.componentregistry.registrations .where(cr => cr.activator.limittype != typ
Read more

php - Mysql PK and FK char(36) vs int(10) -

-
i have read mysql can handle indexes , searches better if tables keys integers rather char(36) uuid's. is worth converting int(10)? note: use 1 server , have have plans use multiple databases concurrently therefore removing 1 of big reasons using uuid. our tables innodb if makes difference. thanks in advance. usually rdbms can handle integer keys pk more efficient, other datatypes. reason how build index column, yes: long dont require string (or other typed) keys, should use integers. however: char(36) , int(10) far away being equal, because int(10) much smaller, char(36). dont know, if require many different keys, should keep in mind. update, complete last paragraph: int(10) 32-bit, char(36) 36 - ^byte^ (= 288-bit). not mean, int consumes less space, means, char(36) has 4 times more different keys.
Read more