Bräuchte Hilfe (PL1-Code ohne Compiler)

[nico1964]

Hallo,

ich bräuchte bitte dringend Hilfe. Wir haben ein PL1-Pgm im Einsatz, bei dem eine dringende Codeänderung gemacht werden müsste, wir haben jedoch weder PL1-Kenntnisse noch einen Compiler.

Daher meine Frage ob irgendwer von euch in der Lage ist, mir ca. 400 Zeilen PL1-Code in COBOL umzuschreiben.

Steige z.b. bei folgenden Abfragen aus:

IF HP12_OP_CODE ^= 'I'                                        
THEN DO ;                                                     
   IF HP12_LIN_EFF = 'E'                                      
   THEN DO ;                                                  
      EXPONENT = 1 / VP ;                                     
      I_HELP_VP = ((1 + I_ZINS * 0.01) ** EXPONENT - 1) * 100 
   END ;                                                      
   ELSE                                                       
      I_HELP_VP = I_ZINS / VP ;                               
                                                              
   IF VP = ZP                                                 
   THEN                                                       
      I_HELP = I_HELP_VP * VP ;                               
   ELSE DO ;                                                  
      EXPONENT = 1 / ZPINVP ;                                 
      I_HELP = (( 1 + I_HELP_VP * 0.01) ** EXPONENT - 1) * 100
             * ZP ;                                           
   END ; 

Ich verliere anscheinend irgendwo ein END-IF im CobolCode


LG
Andreas