1IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D roles:def 2ENVIRONMENT input.cbl /^ ENVIRONMENT DIVISION.$/;" D roles:def 3CONFIGURATION input.cbl /^ CONFIGURATION SECTION.$/;" s roles:def 4SPECIAL-NAMES input.cbl /^ SPECIAL-NAMES.$/;" p roles:def 5DATA input.cbl /^ DATA DIVISION.$/;" D roles:def 6WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s roles:def 7WS-ABBRUCH-TYP input.cbl /^ 01 WS-ABBRUCH-TYP PIC 99.$/;" d roles:def 8WS-ABBRUCH-EVENT input.cbl /^ 88 WS-ABBRUCH-EVENT VALUE 91.$/;" d data:WS-ABBRUCH-TYP roles:def 9WS-ABBRUCH-OBJMGR input.cbl /^. 88 WS-ABBRUCH-OBJMGR VALUE 92.$/;" d data:WS-ABBRUCH-TYP roles:def 10WS-ABBRUCH-DB input.cbl /^. 88 WS-ABBRUCH-DB VALUE 93.$/;" d data:WS-ABBRUCH-TYP roles:def 11WS-ABBRUCH-PGM input.cbl /^. 88 WS-ABBRUCH-PGM VALUE 94.$/;" d data:WS-ABBRUCH-TYP roles:def 12F-TEXT input.cbl /^ 01 F-TEXT.$/;" g roles:def 13F-TEXT-DB input.cbl /^ 05 F-TEXT-DB PIC X(5).$/;" d group:F-TEXT roles:def 14F-TEXT-KEY1 input.cbl /^ 05 F-TEXT-KEY1 PIC 9(8).$/;" d group:F-TEXT roles:def 15F-TEXT-KEY2 input.cbl /^ 05 F-TEXT-KEY2 PIC 9(8).$/;" d group:F-TEXT roles:def 16F-TEXT-KEY3 input.cbl /^ 05 F-TEXT-KEY3 PIC 99.$/;" d group:F-TEXT roles:def 17F-TEXT-EVENT input.cbl /^ 05 F-TEXT-EVENT PIC X(10).$/;" d group:F-TEXT roles:def 18TCTOENV input.cbl /^ COPY TCTOENV.$/;" S roles:copied 19TCWFLENG input.cbl /^ COPY TCWFLENG.$/;" S roles:copied 20TCPR input.cbl /^ COPY TCPR.$/;" S roles:copied 21LINKAGE input.cbl /^ LINKAGE SECTION.$/;" s roles:def 22PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D roles:def 23MAIN input.cbl /^ MAIN SECTION.$/;" s roles:def 24MAIN-EX input.cbl /^ MAIN-EX. EXIT.$/;" p roles:def 25E01-PRUEFEN input.cbl /^ E01-PRUEFEN SECTION.$/;" s roles:def 26M01-VORLAUF input.cbl /^ M01-VORLAUF SECTION.$/;" s roles:def 27M01-VORLAUF-EX input.cbl /^ M01-VORLAUF-EX.$/;" p roles:def 28M02-NACHLAUF input.cbl /^ M02-NACHLAUF SECTION.$/;" s roles:def 29M02-NACHLAUF-EX input.cbl /^ M02-NACHLAUF-EX.$/;" p roles:def 30M99-ABBRUCH input.cbl /^ M99-ABBRUCH SECTION.$/;" s roles:def 31M99-ABBRUCH-EX input.cbl /^ M99-ABBRUCH-EX. EXIT.$/;" p roles:def 32