Τύπος " Επεξεργασία" στο z/OS360 mainframe κονσόλα του συστήματος διαχείρισης και πατήστε το πλήκτρο "Enter" για να επεξεργαστείτε το πρόγραμμα COBOL σας . 2
Προσθέστε το ακόλουθο κώδικα στην αρχή του προγράμματός σας :
DIVISION ΑΝΑΓΝΩΡΙΣΗ
ΠΡΟΓΡΑΜΜΑ -ID . . COBVAR .
ΠΕΡΙΒΑΛΛΟΝ DIVISION .
ΕΙΣΟΔΟΥ - ΕΞΟΔΟΥ ΤΜΗΜΑ .
FILE - CONTROL .
SELECT iFile ΑΝΑΘΕΣΗ TO " iFile " .
DATA DIVISION .
ΑΡΧΕΙΟ ΤΜΗΜΑ .
FD iFile
RECORD ποικίλει από 10 έως 50 ΑΝΑΛΟΓΑ ΜΕ LEN .
01 IREC .
05 FILLER PIC X εμφανίζεται 10 έως 50 φορές, ανάλογα με LEN .
ΔΙΑΔΙΚΑΣΙΑ DIVISION .
P1 .
DISPLAY " ΠΑΡΑΔΕΙΓΜΑ 1 ΕΜΦΑΝΙΖΕΤΑΙ ΑΝΑΛΟΓΑ ΜΕ REC "
OPEN ΕΙΣΟΔΟΣ iFile
σκηνή μέχρι LEN = -1
ΔΙΑΒΑΣΤΕ iFile
ΣΤΟ ΤΕΛΟΣ MOVE -1 ΤΟ ΛΕΝ
ΟΧΙ ΣΤΟ ΤΕΛΟΣ
DISPLAY IREC
DISPLAY LEN
ΤΕΛΟΣ - ΔΙΑΒΑΣΤΕ
ΤΕΛΟΣ ΕΚΤΕΛΕΙ
ΚΛΕΙΣΙΜΟ iFile
DISPLAY SPACE
DISPLAY " ΠΑΡΑΔΕΙΓΜΑ ΣΤΑΘΕΡΑ REC "
OPEN ΕΙΣΟΔΟΣ iFile
MOVE ALL " Χ " ΤΟ IREC
ΔΙΑΒΑΣΤΕ iFile ΣΤΟ ΤΕΛΟΣ MOVE -1 TO LEN
DISPLAY IREC
SPACE DISPLAY
εικόνων 3
Πληκτρολογήστε "Αποθήκευση" στην κονσόλα και πατήστε το πλήκτρο "Enter" για να επιτρέψει το πρόγραμμά σας για την επεξεργασία μεταβλητής αρχεία μήκους .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα