Discussion :

[DevDX]

Bonjour à toutes et à tous,

Quelqu'un peut-il m'expliquer ce que signifie ORGANIZATION IS TRANSACTION dans l'exemple ci-dessous issu de la doc IBM c0918120.pdf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
FILE-CONTROL. 
SELECT RECOVFILE 
ASSIGN TO WORKSTATION-RECVFILE-SI  
ORGANIZATION IS TRANSACTION 
ACCESS MODE IS SEQUENTIAL 
FILE STATUS IS STATUS-FLD, STATUS-FLD-2 
CONTROL-AREA IS CONTROL-FLD.

Est-ce uniquement lié aux DSPF ?

Merci d'avance.
DevDX.

[DevDX]

...après qques recherches je pense que c'est la façon de déclarer les DSPF en COBOL400.

Cela ne m'avait pas sauté aux yeux car je m'attendais à ORGANIZATION INDEXED, SEQUENTIAL ou RELATIVE.

[Hédhili Jaïdane]

Bonjour à toutes et à Tous,

Qqun peut-il m'expliquer ce que signifie ORGANIZATION IS TRANSACTION dans l'exemple ci-dessous issu de la doc IBM c0918120.pdf :

FILE-CONTROL.
SELECT RECOVFILE
ASSIGN TO WORKSTATION-RECVFILE-SI
ORGANIZATION IS TRANSACTION
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS STATUS-FLD, STATUS-FLD-2
CONTROL-AREA IS CONTROL-FLD.

Est-ce uniquement lié aux DSPF ?

Merci d'avance.
DevDX.

Ce sont des extensions IBM pour les traitement sur l'AS/400 des entrées/Sorties à partir et vers les CLAVIER-ECRANS considérés comme des fichiers un peu particuliers : ce sont les fichiers écrans ou "Display Files" ou Fichiers d'Affichage : d'où l'abréviation DSPF.

RECVFILE : nom du fichier écrans, objet de type *FILE Attribut DSPF, qui contient les différents formats (map/image/page/grille) d'écrans à affichier ou à lire
-SI : indicateurs séparés des données échangées avec le programme
TRANSACTION spécification obligatoire pour désigner un fichier clavier-écran.
STATUS-FLD-2 : 2è code statut du fichier
CONTROL-AREA IS CONTROL-FLD. : zone de contrôle associée au fichier clavier-écran qui contient :
- le code de la touche utilisée et qui a provoqué la transmission du buffer au programme : touche "entrée", touche F1, touche "Impr", etc...
- le nom de la device (terminal, clavier-écran)
- d'autres infos réservées

[DevDX]

Merci.
DevDX.