Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1001
Si osservi che quanto appare nelle ultime otto colonne non ha valore per il linguaggio di
programmazione, ma rappresenta un modo per individuare gruppi di righe che possono
avere qualche tipo di importanza, oppure qualunque altro tipo di annotazione.
Generalmente, i compilatori consentono di specificare con quale formato viene fornito il file
sorgente; la scelta è normalmente tra un formato «fisso» (tradizionale), oppure libero (senza
vincoli particolari).
Dal momento che attualmente la numerazione delle righe è divenuta puramente un fatto estetico,
ci si può aiutare con uno script per rinumerare il sorgente. Il listato successivo mostra
uno script molto semplice, che presuppone di ricevere dallo standard input un file sorgente
con i numeri di riga, anche se errati, emettendo lo stesso sorgente attraverso lo standard output,
ma con una numerazione progressiva uniforme (una copia di questo file dovrebbe essere
disponibile presso 〈allegati/cobol/cobol-line-renumber.sh 〉).
|#!/bin/sh
|#
|# cobol-line-renumber.sh INCREMENT < SOURCE_COB > NEW_SOURCE_COB
|#
|INCREMENT="$1"
|LINE=""
|NUMBER="0"
|NUMBER_FORMATTED=""
|#
|while read LINE
|do
| NUMBER=$(($NUMBER+$INCREMENT))
| NUMBER_FORMATTED=‘printf %000006d $NUMBER‘
| LINE=‘echo "$LINE" | sed s/^[0-9][0-9][0-9][0-9][0-9][0-9]//‘
| LINE="$NUMBER_FORMATTED$LINE"
| echo "$LINE"
|done
In pratica, supponendo che lo script si chiami ‘cobol-line-renumber.sh’, si potrebbe
usare come nell’esempio seguente:
$ cobol-line-renumber.sh < sorgente.cob > rinumerato.cob [ Invio ]
83.1.1.1 Compatibilità con i compilatori
I compilatori nati dopo la fine delle schede perforate possono essere più o meno disposti ad
accettare la presenza della numerazione delle righe o delle colonne finali di commento. Generalmente
questi compilatori consentono di indicare un’opzione che specifica il formato del
sorgente; tuttavia si può utilizzare uno script simile a quello seguente, per eliminare le colonne
della numerazione delle righe e le colonne descrittive di identificazione del programma:
«
|#!/usr/bin/perl
|#
|# cobol-compile SOURCE_COB SOURCE_COB_NEW
|#
|use utf8;
|binmode (STDOUT, ":utf8");