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

[Fuerchau]

Der END schließt nicht den IF sondern nur den DO.
Bei vielen Sprachen (auch SQL-native) ist nach einem IF nur eine Anweisung erlaubt.
Benötigt man mehrere so ist eben als einzige Anweisung der DO möglich, der eben mit END abgeschlossen ist.
Hast du nach dem IF oder ELSE keinen DO, dann ist nach der einzigen Anweisung der IF/ELSE beendet.
Für COBOL halt einen END-IF nach der Anweisung wenn sie nicht DO ist ansonsten nach dem END.