Spracherkennung für: .rtf vermutete Sprache: Isabelle {Isabelle[374] Abap[1112] [0]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\fprq1\fcharset0 Fixedsys;}
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue128;\red0\green128\blue128;\red255\green0\blue255;}
{\*\generator Msftedit 5.41.15.1507;}
\viewkind4\uc1\pard\lang1031\f0\fs16}
\cf6 \f1 * DATA SET: X2H100.PRO.COBOL MEMBER:DE027\cf0\f0 \par
\cf6 \f1 * DATE: 03/03/28 TIME: 18:07:00 PAGE: 1\cf0\f0 \par
\cf6 \f1 * USERID: X2H100\cf0\f0 \par
\cf6 \f1 *PARMMVS ENV=DB2\cf0\f0 \par
\cf6 \f1 *PARMMVS DBRMNAME=DE027\cf0\f0 \par
\cf6 \f1 *PARMMVS COMPILER=COBOL2\cf0\f0 \par
\cf6 \f1 *PARMMVS PARM.DB2=(SOURCE,VERSION(AUTO)\cf0\f0 \par
\cf6 \f1 *PARMMVS PARM.COB=(NOADV,\cf0\f0 \par
\cf6 \f1 *PARMMVS DATA(31),\cf0\f0 \par
\cf6 \f1 *PARMMVS NODYN,\cf0\f0 \par
\cf6 \f1 *PARMMVS MAP, "\cf0\f0 \par
\cf6 \f1 *PARMMVS OFFSET,\cf0\f0 \par
\cf6 \f1 *PARMMVS OPT,\cf0\f0 \par
\cf6 \f1 *PARMMVS RENT,\cf0\f0 \par
\cf6 \f1 *PARMMVS RES,\cf0\f0 \par
\cf6 \f1 *PARMMVS NOTEST,\cf0\f0 \par
\cf6 \f1 *PARMMVS TRUNC(BIN»\cf0\f0 \par
\cf6 \f1 *PARMMVS PARM.LNK=(MAP,RENT,LIST, 'AMODE=31', 'RMODE=ANY')\cf0\f0 \par
\cf6 \f1 *PARMMVS LNK.IN ENTRY DE027\cf0\f0 \par
\cf1 \f1 identification\cf0\f0 \cf1 \f1 division\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 program-id\cf0\f0 \cf2 \f1 .\cf0\f0 \cf4 \f1 de027\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 author\cf0\f0 . pcam-gt-pbs-credit decisions & surveillance -jd.\par
\cf1 \f1 date-written\cf0\f0 . 7.7.2002.\par
\cf1 \f1 date-compiled\cf0\f0 .\par
\cf1 \f1 data\cf0\f0 \cf1 \f1 division\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 working-storage\cf0\f0 \cf1 \f1 section\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 77\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 4\cf0\f0 ).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 j\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 4\cf0\f0 ).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 4\cf0\f0 ).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 ind\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 4\cf0\f0 ).\par
\cf3 \f1 77\cf0\f0 \cf2 \f1 pic\cf0\f0 9.\par
\cf3 \f1 88\cf0\f0 \cf4 \f1 nongood-found\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 good-found\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 0\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 77\cf0\f0 \cf2 \f1 pic\cf0\f0 9.\par
\cf3 \f1 88\cf0\f0 \cf4 \f1 nonblank-found\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 blank-found\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 0\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 77\cf0\f0 \cf4 \f1 zeile\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 4\cf0\f0 ).\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 adresse\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 1\cf0\f0 2).\par
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-dummy-dfheiblk\cf0\f0 \cf2 \f1 pic\cf0\f0 x.\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-dummy-dfhcommarea\cf0\f0 \cf2 \f1 pic\cf0\f0 x.\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-in-interface\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 05\cf0\f0 \cf4 \f1 kt1240-h-aufruf-pgm\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 6\cf0\f0 ).\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 kt1240-h-count\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 3\cf0\f0 ).\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 filler\cf0\f0 \cf1 \f1 redefines\cf0\f0 \cf4 \f1 kt1240-h-count\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 kt1240-h-count-x\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 3\cf0\f0 ).\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 kt1240-h-text\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 9\cf0\f0 00).\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 filler\cf0\f0 \cf1 \f1 redefines\cf0\f0 \cf4 \f1 kt1240-h-text\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 kt1240-h-tab\cf0\f0 \cf1 \f1 occurs\cf0\f0 \cf3 \f1 9\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 00).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-pgm\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 8\cf0\f0 ).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-s9\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 8\cf0\f0 ).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-s9-1\cf0\f0 \cf2 \f1 pic\cf0\f0 -9\cf2 \f1 (\cf0\f0 8).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-s9-2\cf0\f0 \cf2 \f1 pic\cf0\f0 -9\cf2 \f1 (\cf0\f0 8).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 kt1240-s9-tab\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 05\cf0\f0 \cf4 \f1 kt1240-s9-ind\cf0\f0 \cf1 \f1 occurs\cf0\f0 \cf3 \f1 256\cf0\f0 \cf2 \f1 pic\cf0\f0 -9\cf2 \f1 (\cf0\f0 4).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 9\cf0\f0 ).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \cf2 \f1 pic\cf0\f0 9(\cf2 \f1 9\cf0\f0 ).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 dummy\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 pointer\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 redefines\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \par
\cf2 \f1 pic\cf0\f0 s9\cf1 \f1 (9) \cf0\f0 \cf2 \f1 c\cf0\f0 omp.\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 de026-pgm\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 8\cf0\f0 ).\par
\par
\cf1 \f1 exec\cf0\f0 \cf5 \f1 sql\cf0\f0 \cf5 \f1 include\cf0\f0 \cf1 \f1 sqlca\cf0\f0 en\cf2 \f1 d\cf0\f0 -exec.\par
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 umgebung\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 u\cf0\f0 \cf2 \f1 pic\cf0\f0 9.\par
\cf3 \f1 88\cf0\f0 \cf4 \f1 online\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 batch\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 2\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf4 \f1 db2server\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf1 \f1 16) v\cf0\f0 a\cf1 \f1 lue s\cf0\f0 \cf2 \f1 p\cf0\f0 ace.\par
\cf3 \f1 88\cf0\f0 \cf4 \f1 testserver\cf0\f0 \cf1 \f1 value\cf0\f0 \cf2 \f1 'TOOO01'\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 abnahmeserver\cf0\f0 \cf1 \f1 value\cf0\f0 \cf2 \f1 'TOOO06'\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 produktionsserver\cf0\f0 \cf1 \f1 value\cf0\f0 \cf2 \f1 'POOO04'\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 10\cf0\f0 \cf2 \f1 pic\cf0\f0 9.\par
\cf3 \f1 88\cf0\f0 \cf4 \f1 testsystem\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 abnahme\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 2\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf3 \f1 88\cf0\f0 \cf4 \f1 produktion\cf0\f0 \cf1 \f1 value\cf0\f0 \cf3 \f1 3\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\par
\cf1 \f1 linkage\cf0\f0 \cf1 \f1 section\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 zeile1\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 zeile2\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 zeile3\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 zeile4\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 zeile5\cf0\f0 \cf2 \f1 pic\cf0\f0 x(\cf2 \f1 1\cf0\f0 32).\par
\par
\cf1 \f1 procedure\cf0\f0 \cf1 \f1 division\cf0\f0 \cf1 \f1 using\cf0\f0 \cf4 \f1 zeile1\cf0\f0 \par
\cf4 \f1 zeile2\cf0\f0 \par
\cf4 \f1 zeile3\cf0\f0 \par
\cf4 \f1 zeile4\cf0\f0 \par
\cf4 \f1 zeile5\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf6 \f1 * vorsicht: parameterübergabe soll nur "by content" erfolgen, weil\cf0\f0 \par
\cf6 \f1 * der pufferbereich auf blank gesetzt wird!\cf0\f0 \par
\par
\cf8 \f1 main\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 init\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf1 \f1 zero\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 address\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 zeile1\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 zeile1\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 check\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 address\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 zeile2\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 and\cf0\f0 \cf4 \f1 zeile2\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 >\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 and\cf0\f0 \cf2 \f1 <\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 '9'\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 zeile2\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 check\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile2\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 address\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 zeile3\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 and\cf0\f0 \cf4 \f1 zeile3\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 >\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 and\cf0\f0 \cf2 \f1 <\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 '9'\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 zeile3\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 check\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile3\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 address\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 zeile4\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 and\cf0\f0 \cf4 \f1 zeile4\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 >\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 and\cf0\f0 \cf2 \f1 <\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 '9'\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 zeile4\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 check\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile4\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 adressfeld\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 address\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 zeile5\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 adressfeld-c\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 adressfeld-x\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 adressfeld-zeile1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 4\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 and\cf0\f0 \cf4 \f1 zeile5\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 >\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 and\cf0\f0 \cf2 \f1 <\cf0\f0 \cf2 \f1 =\cf0\f0 \cf2 \f1 '9'\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 zeile5\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 check\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 zeile5\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf6 \f1 *\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 kt1240-h-text\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf4 \f1 wri-que\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 goback\cf0\f0 \par
\cf2 \f1 .\cf0\f0 \par
\par
\cf8 \f1 init\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 exec\cf0\f0 \cf5 \f1 sql\cf0\f0 \par
\cf5 \f1 set\cf0\f0 :\cf4 \f1 db2server\cf0\f0 \cf2 \f1 =\cf0\f0 \cf5 \f1 current\cf0\f0 \cf5 \f1 server\cf0\f0 \par
\cf1 \f1 end-exec\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf2 \f1 'de026'\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 de026-pgm\cf0\f0 \par
\cf1 \f1 call\cf0\f0 \cf4 \f1 de026-pgm\cf0\f0 \par
\cf1 \f1 on\cf0\f0 \cf1 \f1 exception\cf0\f0 \cf1 \f1 goback\cf0\f0 \par
\cf1 \f1 end-call\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf1 \f1 return-code\cf0\f0 \cf2 \f1 =\cf0\f0 \cf1 \f1 zero\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 set\cf0\f0 \cf4 \f1 batch\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf1 \f1 return-code\cf0\f0 \cf2 \f1 =\cf0\f0 \cf3 \f1 16\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 set\cf0\f0 \cf4 \f1 online\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf2 \f1 .\cf0\f0 \par
\par
\cf8 \f1 check\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 good-found\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf1 \f1 varying\cf0\f0 \cf4 \f1 i\cf0\f0 \cf1 \f1 from\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 by\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 until\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 131\cf0\f0 \par
\cf1 \f1 or\cf0\f0 \cf4 \f1 nongood-found\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 zeile\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 <\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 nongood-found\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \par
\cf1 \f1 compute\cf0\f0 \cf4 \f1 j\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 -\cf0\f0 \cf3 \f1 1\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 j\cf0\f0 \cf2 \f1 <\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 j\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-perform\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 good-found\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf3 \f1 132\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 j\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 blank-found\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \par
\cf1 \f1 perform\cf0\f0 \cf1 \f1 varying\cf0\f0 \cf4 \f1 i\cf0\f0 \cf1 \f1 from\cf0\f0 \cf4 \f1 j\cf0\f0 \cf1 \f1 by\cf0\f0 \cf2 \f1 -\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 until\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 <\cf0\f0 \cf3 \f1 2\cf0\f0 \par
\cf1 \f1 or\cf0\f0 \cf4 \f1 nonblank-found\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 zeile\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 i\cf0\f0 \cf2 \f1 :\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 not\cf0\f0 \cf2 \f1 =\cf0\f0 \cf1 \f1 space\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 set\cf0\f0 \cf4 \f1 nonblank-found\cf0\f0 \cf1 \f1 to\cf0\f0 \cf1 \f1 true\cf0\f0 \par
\cf1 \f1 compute\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 i\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 <\cf0\f0 \cf2 \f1 =\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 k\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-perform\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 blank-found\cf0\f0 \cf1 \f1 then\cf0\f0 \cf1 \f1 move\cf0\f0 \cf4 \f1 j\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 k\cf0\f0 \cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 and\cf0\f0 \cf2 \f1 <\cf0\f0 \cf1 \f1 length\cf0\f0 \cf1 \f1 of\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 string\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \cf2 \f1 )\cf0\f0 \cf4 \f1 zeile\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 delimited\cf0\f0 \cf1 \f1 by\cf0\f0 \cf1 \f1 size\cf0\f0 \cf1 \f1 into\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \par
\cf1 \f1 add\cf0\f0 \cf4 \f1 k\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \par
\cf1 \f1 else\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \cf2 \f1 =\cf0\f0 \cf1 \f1 zero\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 string\cf0\f0 \cf4 \f1 zeile\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 :\cf0\f0 \cf4 \f1 k\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 delimited\cf0\f0 \cf1 \f1 by\cf0\f0 \cf1 \f1 size\cf0\f0 \cf1 \f1 into\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 k\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 aus-ll\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf2 \f1 .\cf0\f0 \par
\cf8 \f1 wri-que\cf0\f0 \cf2 \f1 .\cf0\f0 \par
\cf1 \f1 if\cf0\f0 \cf4 \f1 batch\cf0\f0 \cf1 \f1 then\cf0\f0 \par
\cf1 \f1 display\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \par
\cf1 \f1 else\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 kt1240-h-count\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf4 \f1 ausgabe\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 kt1240-h-tab\cf0\f0 \cf2 \f1 (\cf0\f0 \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf2 \f1 'KT1240'\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 kt1240-pgm\cf0\f0 \par
\cf1 \f1 move\cf0\f0 \cf2 \f1 'de027'\cf0\f0 \cf1 \f1 to\cf0\f0 \cf4 \f1 kt1240-h-aufruf-pgm\cf0\f0 \par
\par
\cf1 \f1 call\cf0\f0 \cf4 \f1 kt1240-pgm\cf0\f0 \cf1 \f1 using\cf0\f0 \cf4 \f1 kt1240-dummy-dfheiblk\cf0\f0 \par
\cf4 \f1 kt1240-dummy-dfhcommarea\cf0\f0 \par
\cf4 \f1 kt1240-in-interface\cf0\f0 \par
\cf1 \f1 end-if\cf0\f0 \par
\cf2 \f1 .\cf0\f0 \par
\cf1 \f1 end-program\cf0\f0 \cf4 \f1 de02\cf0\f0 \cf2 \f1 7\cf0\f0 . }e=binary-Len=0-Val=0-Loc=0)
then(Lin=190-Col=12-Fil=1-Id=426-Typ=function)
:=(Lin=188-Col=12-Fil=1-Id=427-Typ=symbol)
ausgabe(Lin=188-Col=12-Fil=1-Id=428-Typ=data-Ref=1-Base=octet-Len=132-Dur=static-Fmt=X(132)-Lbd=1-Val=ausgabe-Loc=150)
[](Lin=188-Col=12-Fil=1-Id=429-Typ=symbol)
zeile(Lin=188-Col=12-Fil=1-Id=430-Typ=data-Ref=1-Base=octet-Len=132-Dur=static-Fmt=X(132)-Lbd=1-Val=zeile-Loc=18)
1(Lin=188-Col=12-Fil=1-Id=431-Typ=data-Ref=0-Base=binary-Len=0-Val=1-Loc=0)
:=(Lin=190-Col=12-Fil=1-Id=432-Typ=symbol)
aus-ll(Lin=190-Col=12-Fil=1-Id=433-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(4)-Lbd=1-Val=somevalue-Loc=282)
k(Lin=190-Col=12-Fil=1-Id=434-Typ=data-Ref=1-Base=bcd-Len=4-Dur=static-Fmt=9(4)-Lbd=1-Val=somevalue-Loc=8)
if(Lin=203-Col=10-Fil=1-Id=435-Typ=function)
Test(Lin=195-Col=8-Fil=1-Id=436-Typ=symbol)
2(Lin=195-Col=8-Fil=1-Id=437-Typ=data-Ref=0-Base=binary-Len=0-Dur=constant-Lbd=1-Val=2-Loc=561)
then(Lin=196-Col=10-Fil=1-Id=438-Typ=function)
interface(Lin=196-Col=10-Fil=1-Id=439-Typ=symbol)
display(Lin=196-Col=10-Fil=1-Id=440-Typ=function)
:=(Lin=196-Col=10-Fil=1-Id=441-Typ=symbol)
$77(Lin=196-Col=10-Fil=1-Id=442-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$77-Loc=792)
ausgabe(Lin=196-Col=10-Fil=1-Id=443-Typ=data-Ref=1-Base=octet-Len=132-Dur=static-Fmt=X(132)-Lbd=1-Val=ausgabe-Loc=150)
else(Lin=203-Col=10-Fil=1-Id=444-Typ=function)
:=(Lin=198-Col=10-Fil=1-Id=445-Typ=symbol)
kt1240-h-count(Lin=198-Col=10-Fil=1-Id=446-Typ=data-Ref=1-Base=bcd-Len=3-Dur=static-Fmt=9(3)-Lbd=1-Val=somevalue-Loc=304)
1(Lin=198-Col=10-Fil=1-Id=447-Typ=data-Ref=0-Base=binary-Len=0-Val=1-Loc=0)
:=(Lin=199-Col=10-Fil=1-Id=448-Typ=symbol)
[](Lin=199-Col=10-Fil=1-Id=449-Typ=symbol)
kt1240-h-tab(Lin=199-Col=10-Fil=1-Id=450-Typ=data-Ref=1-Base=octet-Len=100-Dur=static-Fmt=X(100)-Lbd=1-Val=kt1240-h-tab-Loc=311)
1(Lin=199-Col=10-Fil=1-Id=451-Typ=data-Ref=0-Base=binary-Len=0-Val=1-Loc=0)
ausgabe(Lin=199-Col=10-Fil=1-Id=452-Typ=data-Ref=1-Base=octet-Len=132-Dur=static-Fmt=X(132)-Lbd=1-Val=ausgabe-Loc=150)
:=(Lin=200-Col=10-Fil=1-Id=453-Typ=symbol)
kt1240-pgm(Lin=200-Col=10-Fil=1-Id=454-Typ=data-Ref=1-Base=octet-Len=8-Dur=static-Fmt=X(8)-Lbd=1-Val=kt1240-pgm-Loc=411)
'KT1240'(Lin=200-Col=10-Fil=1-Id=455-Typ=data-Ref=0-Base=octet-Len=8-Val='KT1240'-Loc=0)
:=(Lin=201-Col=10-Fil=1-Id=456-Typ=symbol)
kt1240-h-aufruf-pgm(Lin=201-Col=10-Fil=1-Id=457-Typ=data-Ref=1-Base=octet-Len=6-Dur=static-Fmt=X(6)-Lbd=1-Val=kt1240-h-aufruf-pgm-Loc=298)
'de027'(Lin=201-Col=10-Fil=1-Id=458-Typ=data-Ref=0-Base=octet-Len=7-Val='de027'-Loc=0)
interface(Lin=203-Col=10-Fil=1-Id=459-Typ=symbol)
kt1240-pgm(Lin=203-Col=10-Fil=1-Id=460-Typ=data-Ref=1-Base=octet-Len=8-Dur=static-Fmt=X(8)-Lbd=1-Val=kt1240-pgm-Loc=411)
:=(Lin=203-Col=10-Fil=1-Id=461-Typ=symbol)
kt1240-dummy-dfheiblk(Lin=203-Col=10-Fil=1-Id=462-Typ=data-Ref=1-Base=octet-Len=0-Dur=static-Fmt=X-Lbd=1-Val=kt1240-dummy-dfheiblk-Loc=298)
$78(Lin=203-Col=10-Fil=1-Id=463-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$78-Loc=792)
:=(Lin=203-Col=10-Fil=1-Id=464-Typ=symbol)
kt1240-dummy-dfhcommarea(Lin=203-Col=10-Fil=1-Id=465-Typ=data-Ref=1-Base=octet-Len=0-Dur=static-Fmt=X-Lbd=1-Val=kt1240-dummy-dfhcommarea-Loc=298)
$79(Lin=203-Col=10-Fil=1-Id=466-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$79-Loc=792)
:=(Lin=203-Col=10-Fil=1-Id=467-Typ=symbol)
kt1240-in-interface(Lin=203-Col=10-Fil=1-Id=468-Typ=data-Ref=1-Base=octet-Len=0-Dur=static-Lbd=1-Val=kt1240-in-interface-Loc=298)
$80(Lin=203-Col=10-Fil=1-Id=469-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$80-Loc=792)
Warnungen in de027.cob(Lin=1-Col=5-Fil=1-Typ=Error)
de027 (Lin=1-Col=5-Fil=1-Typ=Error)
E1 Ana4007? Verlust der Genauigkeit bei kt1240-h-tab(Lin=20
[ Dauer der Verarbeitung: 0.171 Sekunden
]
