cobol
Déclaration de libération
Recherche…
Remarques
L'instruction RELEASE
est utilisée pour donner des enregistrements à l'algorithme COBOL SORT
dans des conditions contrôlées par le programmeur.
LIBÉRER un enregistrement dans une PROCÉDURE D'ENTRÉE DE TRI
Ceci est un échantillon artificiel. Il trie les enregistrements en fonction d'un ALPHABET
comportant des caractères majuscules et minuscules, avec A
et a
échange par rapport aux autres lettres. Cela a été fait exprès pour démontrer les possibilités. Le lecteur d'algorithme SORT récupère les enregistrements à l'aide de RELEASE
dans la INPUT PROCEDURE
. La OUTPUT PROCEDURE
utilise RETURN
pour le SORT
algorithme SORT
.
GCobol >>SOURCE FORMAT IS FIXED
******************************************************************
* Purpose: A GnuCOBOL SORT verb example
* Tectonics: cobc -x sorting.cob
* ./sorting <input >output
* or simply
* ./sorting
* for keyboard and screen demos
******************************************************************
identification division.
program-id. sorting.
environment division.
configuration section.
* This sets up a sort order lower/upper except for "A" and "a"
special-names.
alphabet mixed is " AabBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTu
-"UvVwWxXyYzZ0123456789".
input-output section.
file-control.
select sort-in
assign keyboard
organization is line sequential.
select sort-out
assign display
organization is line sequential.
select sort-work
assign "sortwork".
data division.
file section.
fd sort-in.
01 in-rec pic x(255).
fd sort-out.
01 out-rec pic x(255).
sd sort-work.
01 work-rec pic x(255).
working-storage section.
01 loop-flag pic x value low-value.
procedure division.
sort sort-work
on descending key work-rec
collating sequence is mixed
input procedure is sort-transform
output procedure is output-uppercase.
display sort-return.
goback.
******************************************************************
sort-transform.
move low-value to loop-flag
open input sort-in
read sort-in
at end move high-value to loop-flag
end-read
perform
until loop-flag = high-value
move in-rec to work-rec
RELEASE work-rec
read sort-in
at end move high-value to loop-flag
end-read
end-perform
close sort-in
.
******************************************************************
output-uppercase.
move low-value to loop-flag
open output sort-out
return sort-work
at end move high-value to loop-flag
end-return
perform
until loop-flag = high-value
move work-rec to out-rec
write out-rec end-write
return sort-work
at end move high-value to loop-flag
end-return
end-perform
close sort-out
.
exit program.
end program sorting.
Modified text is an extract of the original Stack Overflow Documentation
Sous licence CC BY-SA 3.0
Non affilié à Stack Overflow