[go: up one dir, main page]

Skip to content

COBOL program experiences unexpected size condition

`

   identification division.
   program-id. test.
   environment division.
   configuration section.
   source-computer.  multics.
   object-computer.  multics.
   data division.
   working-storage section.
   01  rev-str               pic 9(6).
   01  seed-x                pic v9(6).
   procedure division.
   0000-program-control.
       move 045000 to rev-str.
       compute seed-x = (rev-str / 1000000).
       stop run.`

`

Error: size condition by >user_dir_dir>SysAdmin>Repair>ctrek$star_trek|5715 (line 453) size condition Precision of target insufficient for number of integral digits assigned to it.`