开云体育

ctrl + shift + ? for shortcuts
© 2025 开云体育
  1. H390-MVS
  2. Messages
Single Messages Topics Expanded Polls

Re: FILE STATUS CLAUSE

 

I found this program to be interesting.
Maybe you already have solved this problem.
Just a couple of hints. There are many more experienced MVT
Cobol programmers here. This is something I learned from Jay Moseleys
programs and from Rene Ferland.?

CONFIGURATION SECTION.? ? ? ? ? ??
?SOURCE-COMPUTER.? IBM-360.? ? ? ??
?OBJECT-COMPUTER.? IBM-360.? ? ? ??
?SPECIAL-NAMES.? ? ? ? ? ? ? ? ? ??
? ? ?CONSOLE IS CNSL.? ? ? ? ? ? ??
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?INPUT-OUTPUT SECTION.? ? ? ? ? ? ?
?FILE-CONTROL.? ? ? ? ? ? ? ? ? ? ?
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? SELECT I-FICHIER-AUTEURS? ? ?
? ? ? ASSIGN TO UT-S-AUTEURS.? ? ??
*? ? ?STATUS IND-I-CODE-LECTURE.? ?(commented out)
?DATA DIVISION.? ? ? ? ? ? ? ? ? ??
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?FILE SECTION.? ? ? ? ? ? ? ? ? ? ?
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?FD? I-FICHIER-AUTEURS? ? ? ? ? ? ?
? ? ?RECORDING MODE IS F? ? ? ? ? ?
? ? ?LABEL RECORDS ARE STANDARD? ??
? ? ?RECORD CONTAINS 80 CHARACTERS?
? ? ?BLOCK CONTAINS 0 RECORDS? ? ??
? ? ?DATA RECORD IS I-FICHE-AUTEUR.
*? ? RECORDING F? ? ? ? ? ? ? ? ? ?
*? ? LABEL RECORD IS STANDARD.? ? ?
?01? I-FICHE-AUTEUR PIC X(80).? ? ?(80 chars to be able read inn from jcl and proc COBUCG

<rest of your source>
/*
//*--------------------------------------------------------------? ?
//*? ? ? ? JCL FOR USE WITH COBUCG PROCEDURE? ?
//*? ? ? (your test records can be read in here)? ? ? ? ? ? ? ? ? ??
//*--------------------------------------------------------------? ?
//COB.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSOUT? DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)? ??
//*GO.AUTEURS DD DSNAME='HERC01.AUTEURS',DISP=SHR? ? ? ? ? ? ? ? ? ?
//GO.AUTEURS DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
001ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1942AUTR 0000100? ?
002ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1985AUTR 0000200? ?
003HAMMAR? ? ? DAGFINN D.? ? ? ? ? ? ?1881? ? ? ?1972AUTR 0000300? ?
/*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
//*-----------------------------------------------------------------

If you want to assemble and link to loadlib:

Use Proc COBUCL + jcl and:

<your source>

/*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
//LKED.SYSLMOD DD DISP=SHR,DSN=HERC01.TEST.LOADLIB? ? ? ? ? ? ? ??
//LKED.SYSIN DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? NAME AUTEURS(R)? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
/*

If you want to run the program, include your loadlib as shown
in the following jcl step:
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
//*-------------------------------------------------------------??
//*? THE FOLLOWING STEP RUNS THE NEWLY COMPILED/LINKED MODULE? ? ?
//*-------------------------------------------------------------??
//AUTHEURS EXEC PGM=AUTEURS,COND=(4,LT)? ? ? ? ? ? ? ? ? ? ? ? ? ?
//STEPLIB? DD? ?DSN=HERC01.TEST.LOADLIB,DISP=SHR? ? ? ? ? ? ? ? ??
//SYSOUT? ?DD? ?SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)??
//SYSUDUMP DD? ?SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
//GO.AUTEURS DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
001ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1942AUTR 0000100?
002ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1985AUTR 0000200?
003HAMMAR? ? ? DAGFINN D.? ? ? ? ? ? ?1972? ? ? ? ? ?AUTR 0000300?
/*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
//*--------------------------------------------------------------?

Kind regards
Dagfinn


On Fri, 4 Apr 2025 at 19:19, Alain Parent via <para1107=[email protected]> wrote:
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
?
Join [email protected] to automatically receive all group messages.