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

Javascript line number mapping -

-
magically formatted comments change reported line number of javascript errors in browsers; this: //@line n "f" n line number , f file name. unfortunately, //@line appears ungoogleable. know there documentation on feature, , browsers support it? (i found references here , here .) from can find available in mozilla based browsers. it using js_setoptions command can turn these options on or off depending on values passed. https://developer.mozilla.org/en/js_setoptions
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