HERE is the code and input file AUTEURS (F, record length=65, block length=65)
==============
?
//AUTEURS ?JOB (COBOL), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000100
// ? ? ? ? ? ? 'moi', ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000200
// ? ? ? ? ? ? CLASS=A, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000300
// ? ? ? ? ? ? MSGCLASS=H, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00000400
// ? ? ? ? ? ? REGION=8M,TIME=1440, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000500
// ? ? ? ? ? ? MSGLEVEL=(1,1) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000600
//*** ?00000700
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000800
//* Name: .JCLLIB(XXXXXXX1) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000900
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001000
//* Desc: Sieve of Eratosthenes programmed in COBOL. ? ? ? ? ? ? ? ? ? ?00001100
//* ? ? ? All prime numbers up to the value entered via ? ? ? ? ? ? ? ? 00001200
//* ? ? ? //GO.SYSIN DD are computed. Due to a COBOL ? ? ? ? ? ? ? ? ? ?00001300
//* ? ? ? implementation limitation a maximum limit ? ? ? ? ? ? ? ? ? ? 00001400
//* ? ? ? of 32767 can be entered. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00001500
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001600
//*** ?00001700
//PRIMES EXEC COBUCG, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001800
// ? ? ? ? PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K,LIB' ? ? ? ?00001900
//COB.SYSPUNCH DD DUMMY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002000
//COB.SYSIN DD * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002100
? ? ? ?IDENTIFICATION DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002200
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002300
? ? ? ?PROGRAM-ID. ?AUTEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002400
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002500
? ? ? ?AUTHOR. ? ? ? ? ? Al. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002600
? ? ? * Ce programme vise a se familiariser avec le traitement SEQUENTI.00002700
? ? ? * Il vise aussi a redefinir une structure de fiche pour ? ? ? ? ? 00002800
? ? ? * FONCTION1: AFFICHER la liste des auteurs de la bibliotheque ? ? 00002900
? ? ? * FONCTION2: COMPTER le nombre total d'enregistrements ? ? ? ? ? ?00003000
? ? ? * INPUT ?: fichier des auteurs inscrits dans la bibliotheque ? ? ?00003100
? ? ? * ? ? ? ? ? ? TousLesAuteurs.txt" ?alias UT-S-AUTEURS ? ? ? ? ? ? 00003200
? ? ? * SORTIE : ECRAN le nombre d'auteurs connus ? ? ? ? ? ? ? ? ? ? ? 00003300
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003400
? ? ? ?ENVIRONMENT DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003500
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003600
? ? ? ?INPUT-OUTPUT SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003700
? ? ? ?FILE-CONTROL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003900
? ? ? ? ? ? SELECT I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004000
? ? ? ? ? ? ASSIGN TO UT-S-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004100
? ? ? ? ? ? STATUS IND-I-CODE-LECTURE. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004200
? ? ? ?DATA DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004300
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004400
? ? ? ?FILE SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004500
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004600
? ? ? ?FD ?I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004700
? ? ? ? ? ?RECORDING F ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004800
? ? ? ? ? ?LABEL RECORD IS STANDARD. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004900
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005000
? ? ? ?01 ?I-FICHE-AUTEUR PIC X(65). ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00005100
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005200
? ? ? ?WORKING-STORAGE SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005300
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005400
? ? ? *INDICATEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00005500
? ? ? ?01 ? ?INDICATEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005600
? ? ? ? ?05 ?IND-FIN-FICHIER-AUTEURS PIC X(4) VALUE 'FAUX'. ? ? ? ? ? ? 00005700
? ? ? ? ?05 ?IND-I-CODE-LECTURE ? ? ?PIC 9(2) VALUE ZEROS. ? ? ? ? ? ? ?00005800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005900
? ? ? ? ?01 ?WS-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00006200
? ? ? ? ? ? 05 NUMERO-AUTEUR ? ? ? ?PIC 9(3). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006300
? ? ? ? ? ? 05 NOM-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00006400
? ? ? ? ? ? ? ?10 AUTEUR-CLE1 ? ? ? PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006500
? ? ? ? ? ? ? ?10 FILLER ? ? ? ? ? ?PIC X(8). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006600
? ? ? ? ? ? 05 PRENOM-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00006700
? ? ? ? ? ? ? ?10 AUTEUR-CLE2 ? ? ? PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006800
? ? ? ? ? ? ? ?10 FILLER ? ? ? ? ? ?PIC X(9). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006900
? ? ? ? ? ? 05 FILLER ? ? ? ? ? ? ? PIC X(10). ? ? ? ? ? ? ? ? ? ? ? ? ?00007000
? ? ? ? ? ? 05 ANNEE-NAISSANCE ? ? ?PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007100
? ? ? ? ? ? 05 ANNEE-NAISSANCE-NUM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00007200
? ? ? ? ? ? ? ? ?REDEFINES ANNEE-NAISSANCE PIC 9(4). ? ? ? ? ? ? ? ? ? ?00007300
? ? ? ? ? ? 05 FILLER ? ? ? ? ? ? ? PIC X(7). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007400
? ? ? ? ? ? 05 ANNEE-DECES ? ? ? ? ?PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007500
? ? ? ? ? ? 05 ANNEE-DECES-NUM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00007600
? ? ? ? ? ? ? ? REDEFINES ANNEE-DECES PIC 9(4). ? ? ? ? ? ? ? ? ? ? ? ? 00007700
? ? ? ? ? ? 05 NATIONALITE ? ? ? ? ? ?PIC X(12). ? ? ? ? ? ? ? ? ? ? ? ?00007800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00007900
? ? ? *COMPTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00008000
? ? ? ? 01 ?VARIABLES-DE-TRAVAIL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008100
? ? ? ? ? ?05 WS-NB-AUTEURS ? ? ? ?PIC 9(5) VALUE ZEROS. ? ? ? ? ? ? ? ?00008200
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008300
? ? ? * VARIABLES-DE-TRAVAIL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008400
? ? ? * SHOULD BE REPLACE BY ACCEPT FROM DATE ? ? ? ? ? ? ? ? ? ? ? ? ? 00008500
? ? ? ?01 ?DATE-DU-JOUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00008600
? ? ? ? ? ?05 SIECLE ? ? ? ? ? ? ? ? ? PIC 99 ? ? ?VALUE 20. ? ? ? ? ? ?00008700
? ? ? ? ? ?05 DATE-FRM-COURT. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008800
? ? ? ? ? ? ? 10 ANNEE-COURANTE ? ? ? ?PIC 99 ? ? ?VALUE 25. ? ? ? ? ? ?00008900
? ? ? ? ? ? ? 10 MOIS-COURANT ? ? ? ? ?PIC 99 ? ? ?VALUE 02. ? ? ? ? ? ?00009000
? ? ? ? ? ? ? 10 JOUR-COURANT ? ? ? ? ?PIC 99 ? ? ?VALUE 28. ? ? ? ? ? ?00009100
? ? ? ? 01 ?AGE-AUTEUR ? ? ? ? PIC 999 ? ? VALUE ZEROS. ? ? ? ? ? ? ? ? 00009200
? ? ? ? 01 ?FIN-WS ? ? ? ? ? ? PIC X(5) ? ?VALUE ? 'FIN'. ? ? ? ? ? ? ? 00009300
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009400
? ? ? ?PROCEDURE DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00009500
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009600
? ? ? ?000-PRINCIPAL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009700
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009800
? ? ? * TRAITER TOUTES LES FICHES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009900
? ? ? ? ? ?DISPLAY 'execution du module 000-PRINCIPAL' ? ? ? ? ? ? ? ? ?00010000
? ? ? ? ? ?PERFORM 100-INIIALISER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010100
? ? ? ? ? ?PERFORM X100-LIRE-FICHIER-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010200
? ? ? ? ? ?PERFORM 200-TRAITER-FICHES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010300
? ? ? ? ? ? ? ? UNTIL IND-FIN-FICHIER-AUTEURS = 'VRAI' ? ? ? ? ? ? ? ? ?00010400
? ? ? ? ? ?PERFORM 900-TERMINER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010500
? ? ? ? ? ?DISPLAY 'fIN NORMALE DU PROGRAMME AUTEURS' ? ? ? ? ? ? ? ? ? 00010600
? ? ? ? ? ?STOP RUN. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00010700
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010800
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010900
? ? ? ?100-INIIALISER. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011000
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011100
? ? ? * INTIIALISER variables ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011200
? ? ? ? ? ?DISPLAY 'execution du module 100-INIIALISER' ? ? ? ? ? ? ? ? 00011300
? ? ? ? ? ?OPEN ? ?INPUT ? I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011400
? ? ? ? ? ?DISPLAY 'OUVERTURE AUTEURS' ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011500
? ? ? ? ? ?DISPLAY IND-I-CODE-LECTURE. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011600
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011700
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011800
? ? ? ?200-TRAITER-FICHES. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011900
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012000
? ? ? *AFFICHER le contenu d'un enregistrement A L'ECRAN ? ? ? ? ? ? ? ?00012100
? ? ? ? ? ?DISPLAY 'xecution du module 200-TRAITER-FICHES' ? ? ? ? ? ? ?00012200
? ? ? ? ? ?DISPLAY I-FICHE-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012300
? ? ? ? ? ?PERFORM X100-LIRE-FICHIER-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ?00012400
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012500
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012600
? ? ? ?900-TERMINER. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00012700
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012800
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012900
? ? ? ? ? ?DISPLAY 'xecution du module 900-TERMINER' ? ? ? ? ? ? ? ? ? ?00013000
? ? ? ? ? ?CLOSE ? ? ? ? ? I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013100
? ? ? ? ? ?SUBTRACT 1 FROM WS-NB-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013200
? ? ? ? ? ?DISPLAY 'Nombre d"auteurs connus :' ? ? ? ? ? ? ? ? ? ? ? ? ?00013300
? ? ? ? ? ?DISPLAY ?WS-NB-AUTEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013400
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013500
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013600
? ? ? ?X100-LIRE-FICHIER-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013700
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013800
? ? ? *LIRE le contenu du fichier ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013900
? ? ? *RETOURNE une fiche ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014000
? ? ? ? ? ?DISPLAY 'execution du module X100-LIRE-FICHIER-AUTEUR' ? ? ? 00014100
? ? ? ? ? ?ADD 1 TO ?WS-NB-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014200
? ? ? ? ? ?READ ? I-FICHIER-AUTEURS INTO WS-FICHE-AUTEUR ? ? ? ? ? ? ? ?00014300
? ? ? ? ? ? ? ?AT END MOVE 'VRAI' TO IND-FIN-FICHIER-AUTEURS ? ? ? ? ? ?00014400
? ? ? ? ? ? ? ? ? ?DISPLAY 'FIN DU FICHIER-AUTEURS' ? ? ? ? ? ? ? ? ? ? 00014500
? ? ? ? ? ? ?DISPLAY WS-FICHE-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014600
? ? ? ? ? ? ?DISPLAY I-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014700
? ? ? ? END-READ. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014800
? ? ? ? ? ? ?DISPLAY WS-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014900
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00015000
//COB.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00015200
//*OB.SYSLIB DD DSNAME=HERC01.DEV.COPYBOOK,SHR ? ? ? ? ? ? ? ? ? ? ? ? ?00015300
//GO.AUTEURS DD DSNAME='HERC01.AUTEURS',DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?00015400
//GO.SYSOUT ?DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100) ? ? ? ?00015500
// ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00015600
==============
extract of AUTEURS dataset
001ZWEIG ? ? ? STEFAN ? ? ? ? ? ? ? ? 1881 ? ? ? 1942AUTR 0000100
002ZWEIG ? ? ? STEFAN ? ? ? ? ? ? ? ? 1881 ? ? ? ? ? AUTR 0000200
?
