SSL Loecks-P139.cob
Interaktion und PortierbarkeitCobol
identificationdivision. program-id. lp139. * aus Loecks/Sieber p. 139 author. Jens. date-written. 11.9.2005. date-compiled. datadivision. working-storagesection.
77 y1 pic 9(4).
77 y2 pic 9(4). linkagesection.
77 x pic 9(4).
77 z pic 9(4). proceduredivisionusing x returning z. move x to y1 move 1 to y2
test1. if y1 > 100 then if y2 not = 1 then subtract 10 from y1 subtract 1 from y2 goto test1 else subtract 10 from y1 giving z end-if else add 11 to y1 add 1 to y2 goto test1 end-if. * display "z is "z end-program lp139.
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.4Angebot
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.