Création du JavaBean Adélia d'opération

Pour construire le JavaBean exécutant les opérations d'affichage, de création, de modification et de suppression :

Construisez un nouveau programme Visual Adélia Batch. Ce programme devra gérer l'ensemble des options d'affichage, de création, de suppression et de modification.

- Déclarez dans un premier temps l'ensemble des variables nécessaires aux opérations sus-mentionnées. Elles doivent être placées dans la partie [DECL PGM] du programme.

DECL PGM
BOOL	OK
ALPHA(8)	CODACTION
REF(CL_COD_CLIENT)	PCOD_CLI
LISTE	LST_CLIENT	*REF_MLD(CLIENT)
PARAM OK CODACTION PCOD_CLI LST_CLIENT

- Saisissez ensuite dans la partie [INIT PGM] le code permettant d'effectuer toutes les opérations prévues.

OK=*FAUX

* AFFICHAGE DU DETAIL DES CLIENTS

SI CODACTION = 'DETAIL'

CHARGER_SQL_LST LST_CLIENT CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI)

SI *SQLCODE=*NORMAL

OK=*VRAI

FIN

SINON

Code permettant de rapatrier le détail d'un enregistrement.

* CREATION D'UN CLIENT

SI CODACTION = 'CREATION'

LIRE_SQL CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI)

SI *SQLCODE=*NORMAL

OK=*FAUX

SINON

LECTURE_LST LST_CLIENT

CREER_SQL CLIENT

SI *SQLCODE=*NORMAL

OK=*VRAI

SINON

OK=*FAUX

FIN

FIN_LECTURE_LST

FIN

SINON

Code permettant de créer un nouvel enregistrement

* SUPPRESSION D'UN CLIENT

SI CODACTION = 'SUPPR'

SUPPRIMER_SQL CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI)

SI *SQLCODE=*NORMAL

OK=*VRAI

FIN

SINON

Code permettant de supprimer un enregistrement

* MODIFICATION D'UN CLIENT

SI CODACTION = 'MAJ'

LECTURE_LST LST_CLIENT

MAJ_SQL CLIENT CL_NOM_CLIENT=:CL_NOM_CLIENT, -

CL_COD_POS_CLI=:CL_COD_POS_CLI, -

CL_LIB_VIL_CLI=:CL_LIB_VIL_CLI, -

CL_LIB_AD1_CLI=:CL_LIB_AD1_CLI, -

CL_NUM_CPT_CLI=:CL_NUM_CPT_CLI, -

CL_COD_MATRICUL=:CL_COD_MATRICUL, -

CL_COD_BAN_CLI=:CL_COD_BAN_CLI, -

CL_COD_GUI_CLI=:CL_COD_GUI_CLI, -

CL_CLE_RIB_CLI=:CL_CLE_RIB_CLI -

*COND(CL_COD_CLIENT=:CL_COD_CLIENT)

SI *SQLCODE=*NORMAL

OK=*VRAI

FIN

FIN_LECTURE_LST

FIN

Code permettant de modifier un enregistrement

↑ Haut de page