Parte ii - IIS Marconi Latina - Area didattica

More documents

Recommendations

Info

1028 volume V Programmazione Paragrafo ‘MAIN’ Viene aperto in lettura il file da leggere. Viene eseguita la lettura di un primo blocco, pari alla dimensione della variabile ‘RECORD-DA-LEGGERE’; se si verifica la condizione ‘AT END’, ovvero se il file è vuoto, viene messo il valore uno nella variabile ‘EOF’. Viene eseguito il paragrafo ‘LETTURA’, ripetutamente, utilizzando come condizione di arresto il fatto che la variabile ‘EOF’ contenga il valore uno. Viene chiuso il file da leggere. Il programma si arresta perché incontra l’istruzione ‘STOP RUN’. Paragrafo ‘LETTURA’ Viene visualizzata la porzione di file appena letta. Viene eseguita la lettura del file da leggere; se si verifica la condizione ‘AT END’, ovvero se la lettura non ha acquisito alcunché, viene messo il valore uno nella variabile ‘EOF’. Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM1500.cob 〉. |000100 IDENTIFICATION DIVISION. |000200 PROGRAM-ID. ELM1500. |000300 AUTHOR. DANIELE GIACOMINI. |000400 DATE-WRITTEN. 1985-02-20. |000500* |000600 ENVIRONMENT DIVISION. |000700* |000800 INPUT-OUTPUT SECTION. |000900* |001000 FILE-CONTROL. |001100* |001200 SELECT FILE-DA-LEGGERE ASSIGN TO "input.seq" |001300 ORGANIZATION IS SEQUENTIAL. |001400* |001500 DATA DIVISION. |001600* |001700 FILE SECTION. |001800* |001900 FD FILE-DA-LEGGERE |002000 LABEL RECORD IS STANDARD. |002100* |002200 01 RECORD-DA-LEGGERE PIC X(30). |002300* |002400 WORKING-STORAGE SECTION. |002500 01 EOF PIC 9 VALUE ZERO. |002600* |002700 PROCEDURE DIVISION. |002800*------------------------- LIVELLO 0 ----------------------------- |002900 MAIN. |003000 OPEN INPUT FILE-DA-LEGGERE. |003100 READ FILE-DA-LEGGERE |003200 AT END |003300 MOVE 1 TO EOF. |003400 PERFORM LETTURA UNTIL EOF = 1.
Programmare in COBOL 1029 |003500 CLOSE FILE-DA-LEGGERE. |003600* |003700 STOP RUN. |003800*------------------------- LIVELLO 1 ----------------------------- |003900 LETTURA. |004000 DISPLAY RECORD-DA-LEGGERE. |004100 READ FILE-DA-LEGGERE |004200 AT END |004300 MOVE 1 TO EOF. |004400* |Figura 83.23. Foto ricordo della festa conclusiva di un corso sul linguaggio COBOL realizzato con l’elaboratore Burroughs B91, presumibilmente tra il 1982 e il 1983. Nell’immagine, l’ingegnere che ha tenuto il corso compila un diploma preparato per scherzo dagli studenti che lo hanno frequentato.
Page 1 and 2:
TXT HTM PDF pdf P1 P2 P3 P4 Parte i
Page 3 and 4:
849 Capitolo 82 TXT HTM PDF pdf P1
Page 5 and 6:
Manuale COBOL 851 82.12.8 Istruzion
Page 7 and 8:
Manuale COBOL 853 Gli autori e i ti
Page 9 and 10:
Manuale COBOL 855 La divisione ‘D
Page 11 and 12:
Manuale COBOL 857 I caratteri di in
Page 13 and 14:
Manuale COBOL 859 |Tabella 82.7. Cl
Page 15 and 16:
Manuale COBOL 861 Una costante nume
Page 17 and 18:
Manuale COBOL 863 |Tabella 82.15. C
Page 19 and 20:
Manuale COBOL 865 |Listato 82.17. U
Page 21 and 22:
Manuale COBOL 867 |Figura 82.18. Es
Page 23 and 24:
Manuale COBOL 869 82.3.2 Codifica d
Page 25 and 26:
Manuale COBOL 871 82.4.2.2 Paragraf
Page 27 and 28:
Manuale COBOL 873 |001000 SPECIAL-N
Page 29 and 30:
Manuale COBOL 875 82.4.3.3 Istruzio
Page 31 and 32:
Manuale COBOL 877 |003300 DISPLAY "
Page 33 and 34:
Manuale COBOL 879 |002300 PROCEDURE
Page 35 and 36:
Manuale COBOL 881 Un file organizza
Page 37 and 38:
Manuale COBOL 883 L’esempio segue
Page 39 and 40:
Manuale COBOL 885 Nei manuali COBOL
Page 41 and 42:
Manuale COBOL 887 Codice Organizzaz
Page 43 and 44:
Manuale COBOL 889 record) può esse
Page 45 and 46:
Manuale COBOL 891 82.5.1.3 Dichiara
Page 47 and 48:
Manuale COBOL 893 82.5.1.8 Dichiara
Page 49 and 50:
Manuale COBOL 895 |000000 01 RECORD
Page 51 and 52:
Manuale COBOL 897 In questo caso, i
Page 53 and 54:
Manuale COBOL 899 Nel primo schema,
Page 55 and 56:
Manuale COBOL 901 |P: ABCDEFGHIJ |Q
Page 57 and 58:
Manuale COBOL 903 82.6.5 Opzione «
Page 59 and 60:
Manuale COBOL 905 82.6.10 Opzione
Page 61 and 62:
Manuale COBOL 907 82.7.2 Riferiment
Page 63 and 64:
Manuale COBOL 909 |000100 IDENTIFIC
Page 65 and 66:
Manuale COBOL 911 |001500 03 COGNOM
Page 67 and 68:
Manuale COBOL 913 |000700* |000800
Page 69 and 70:
Manuale COBOL 915 La parola chiave
Page 71 and 72:
Manuale COBOL 917 82.8.3 Qualificaz
Page 73 and 74:
Manuale COBOL 919 82.9 Modello di d
Page 75 and 76:
Manuale COBOL 921 viene assegnato l
Page 77 and 78:
Manuale COBOL 923 |002600 " DATA: "
Page 79 and 80:
Manuale COBOL 925 |SOURCE VALUE IS
Page 81 and 82:
Manuale COBOL 927 |004900 DISPLAY "
Page 83 and 84:
Manuale COBOL 929 Compilando il pro
Page 85 and 86:
Manuale COBOL 931 Il primo gruppo d
Page 87 and 88:
Manuale COBOL 933 |004500 DISPLAY R
Page 89 and 90:
Manuale COBOL 935 82.11.5 Espressio
Page 91 and 92:
Manuale COBOL 937 82.11.6.2 Condizi
Page 93 and 94:
Manuale COBOL 939 Avverbio Descrizi
Page 95 and 96:
Manuale COBOL 941 |000300 AUTHOR. D
Page 97 and 98:
Manuale COBOL 943 Nel caso si utili
Page 99 and 100:
Manuale COBOL 945 L’esempio mostr
Page 101 and 102:
Manuale COBOL 947 Si osservi che un
Page 103 and 104:
Manuale COBOL 949 82.12.11 Istruzio
Page 105 and 106:
Manuale COBOL 951 Compilando l’es
Page 107 and 108:
Manuale COBOL 953 |002100 CHARACTER
Page 109 and 110:
Manuale COBOL 955 della prima varia
Page 111 and 112:
Manuale COBOL 957 un’operazione d
Page 113 and 114:
Manuale COBOL 959 Nelle sezioni suc
Page 115 and 116:
Manuale COBOL 961 Aggiungendo allo
Page 117 and 118:
Manuale COBOL 963 ‘FROM’, l’i
Page 119 and 120:
Manuale COBOL 965 |Figura 82.210. D
Page 121 and 122:
Manuale COBOL 967 Organizzazione a
Page 123 and 124:
Manuale COBOL 969 |Listato 82.217.
Page 125 and 126:
Manuale COBOL 971 |Listato 82.221.
Page 127 and 128:
Manuale COBOL 973 La condizione di
Page 129 and 130:
Manuale COBOL 975 |000400 INSTALLAT
Page 131 and 132: Manuale COBOL 977 |000400 INSTALLAT
Page 133 and 134: Manuale COBOL 979 Nel primo schema
Page 135 and 136: Manuale COBOL 981 |Listato 82.233.
Page 137 and 138: Manuale COBOL 983 L’esempio succe
Page 139 and 140: Manuale COBOL 985 (10-1-2-3). In qu
Page 141 and 142: Manuale COBOL 987 L’utilizzo dell
Page 143 and 144: Manuale COBOL 989 |003900* |004000
Page 145 and 146: Manuale COBOL 991 82.13.3 Gestire i
Page 147 and 148: Manuale COBOL 993 |002700 |002800 W
Page 149 and 150: Manuale COBOL 995 |004800 DISPLAY "
Page 151 and 152: TXT HTM PDF pdf P1 P2 P3 P4 997 Pro
Page 153 and 154: Programmare in COBOL 999 |Figura 83
Page 155 and 156: Programmare in COBOL 1001 Si osserv
Page 157 and 158: Programmare in COBOL 1003 |Tabella
Page 159 and 160: Programmare in COBOL 1005 83.1.4 Op
Page 161 and 162: Programmare in COBOL 1007 Una copia
Page 163 and 164: Programmare in COBOL 1009 Descrizio
Page 165 and 166: Programmare in COBOL 1011 Viene ese
Page 167 and 168: Programmare in COBOL 1013 Paragrafo
Page 169 and 170: Programmare in COBOL 1015 |000900*
Page 171 and 172: Programmare in COBOL 1017 |002500*-
Page 173 and 174: Programmare in COBOL 1019 |002800 P
Page 175 and 176: Programmare in COBOL 1021 |001900*-
Page 177 and 178: Programmare in COBOL 1023 |001000 W
Page 181: Programmare in COBOL 1027 |002500 0
Page 185 and 186: Programmare in COBOL 1031 |004300 T
Page 189 and 190: Programmare in COBOL 1035 |000400 D
Page 191 and 192: Programmare in COBOL 1037 |004300 S
Page 193 and 194: Programmare in COBOL 1039 |007500 T
Page 195 and 196: Programmare in COBOL 1041 83.3.9 AG
Page 197 and 198: Programmare in COBOL 1043 83.3.10 A
Page 199 and 200: Programmare in COBOL 1045 |003500 0
Page 201 and 202: Programmare in COBOL 1047 |005300 E
Page 203 and 204: Programmare in COBOL 1049 |009400 D
Page 205 and 206: Programmare in COBOL 1051 83.3.15 A
Page 207 and 208: Programmare in COBOL 1053 |009600 P
Page 209 and 210: Programmare in COBOL 1055 |020200 I
Page 211 and 212: Programmare in COBOL 1057 83.4.3 Pr
Page 213 and 214: Programmare in COBOL 1059 | SAVEN
Page 217 and 218: Programmare in COBOL 1063 | END WHI
Page 219 and 220: Programmare in COBOL 1065 |QSORT |
Page 221 and 222: Programmare in COBOL 1067 |008900 O
Page 223 and 224: Programmare in COBOL 1069 |PERMUTA
Page 225 and 226: Programmare in COBOL 1071 |001100 |
Page 227 and 228: Programmare in COBOL 1073 |011700 M
Page 229 and 230: Programmare in COBOL 1075 83.5 Rife
show all

Parte ii - IIS Marconi Latina - Area didattica

Create successful ePaper yourself

Delete template?

Save as template?