תוֹכֶן
IBM CoBOL (שפה עסקית שכיחה) מאפשרת למשתמשים לעבד סוגים שונים של נתונים ביישומי תוכנה עסקיים ופיננסיים. COBOL תומך באורך משתנה של סוגי נתונים לשימוש בקבצי מסד נתונים המאוחסנים בדיסקים קשיחים; המשתמש מציין את האורך המרבי או המינימלי של רשומות כדי לתאר את הקבצים של הדיסק עם רשומות אורך משתנה. קריאת נתוני אורך משתנה מאפשרת לך לעבד מידע במסד הנתונים מבלי לקבוע את הגודל המדויק של רשומה בתוכנית ה- COBOL שלך.
הוראות
-
סוג "ערוך" ב z / OS360 mainframe ניהול מערכת קונסולת ולחץ על "Enter" כדי לערוך את המפתח שלך תוכנית.
-
הוסף את הקוד הבא לתחילת התוכנית:
מחלקת הזיהוי. תעודת זהות. COVVAR. מחלקת איכות הסביבה. סעיף תשומה - תפוקה. FILE-CONTROL. בחר IFILE להקצות "IFILE".
תאריך DIVISION. קטע קובץ. רישום FILE IFILE משתנה מ 10 ל 50 תלוי על LEN. 01 IREC. 05 מילר PIC X OCCURS 10 עד 50 טיימס תלוי על LEN.
מחלקת ניהולם. P1. תצוגה "דוגמא 1 OCCURS תלוי בהקלטה" פתח כניסה IFILE PERFORM עד LEN = -1 קרא את IFILE ב - END MOVE -1 עד LEN EN IN DISPLAY תצוגת IREC LEN END-READ סיום סיום IFILE DISPLAY SPACE
תצוגה "לדוגמה" פתק פתוח "פתח כניסה IFILE העברת כל" X "ל IREC קריאה IFILE ב סוף סוף -1 כדי להציג תצוגה IREC שטח
-
הקלד "שמור" על הקונסולה ולחץ על מקש "Enter" כדי לאפשר לתוכנית לעבד רשומות באורך משתנה.