Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

RE: file locked microfocus cobol

$
0
0

bonjour

je voudrais en premier temps vous remercier et par la meme occasion mieux presenter la problematique

premierement il faut noter  qu'il s'agit d'une application multiuser utilisant des fichiers plats developpée avec microfocus cobol version 4.1.20-e avec hp-unix comme system d'exploitation.

la maniere dont on utilisait ces fichiers etait la suivante:

FILE-CONTROL.

           SELECT decltgt   ASSIGN TO "DECLTGT"

                  ORGANIZATION IS INDEXED

                  ACCESS MODE IS random

                  lock mode is automatic with lock on record

                  RECORD KEY IS GR-DEC.

      DATA DIVISION.

      FILE SECTION.

      FD  DECLTGT .

      01  DECL.

             02  GR-DEC.

                 03 DSANNRCT PIC 9999.

                 03 DSMOIRCT PIC 99.

                 03 DSCDERCT PIC 9(3).

                 03 DSTYPDCL PIC X.

                 03 DSCDERBQ PIC 9(9).

apres les declarations et dans la procedure division

open output DECLTGT .

.......

..........

traitements

........

.........

write DECL

                     invalid key display "ERREUR ECR" at 2401

                                 display vh-enr at 2501

                      accept tac at 2301.

en migrant vers microfocus visual cobol 2.2  avec unix (redhat 60.2) l'erreur file locked ou record locked est tres frequente et on savait pas qu'est qu'il a changé d'une version à l'autre.

autre probleme c'est l'utilisation de forms2 pour la realisation des erans qui a ete delaissé avec le nouvel compilateur et on sait plus par quoi le remplacer et comment dessiner nos ecrans.

3eme point interessant peut on faire une adaptation des solutions graphique telque les forms les boutons les champs texte vers une solution mode caractere.

merci pour votre collobaration et bonne journée


Viewing all articles
Browse latest Browse all 4356

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>