RPG400 SOUS AS/400

Question

Bonjour
voila une parite du programme,je vais expliquer l important:
le MC002L01 est fichier stock,il a comme cle:WPROD code article et WWHS l emplacement de l article dans le depot,
le MC001L01 est un fichier mouvement qui je dois le lire primaire pour certain  condition,ce fichier  contient un article par un seul depot meme si on a plusieur depot par artcle dans le fichier MC002L01.

le  programme:

     FMC001L01IP  E           K        DISK
     FMC002L01IF  E           K        DISK
       *--------------- 
     C      CLEIWI    KLIST
     C                     KFLD           WPROD
     C                     KFLD           WWHS
       *--------------
     C*          DEBUT     TAG
     C                     MOVE TPROD     WPROD
     C                     MOVE TWHS      WWHS
     C                     Z-ADD0         VAR1   113
     C                     Z-ADD0         VAR2   113
      *-----------------------------------------------------------
     C           CLEIWI    CHAINMC002L01             56  
     C   N56      WADJ      ADD  WRCT      VAR1
     C   N56      VAR1      ADD  WOPB      VAR2
     C   N56      VAR2      SUB  WISS      VAR3 13                   
     C   N56                ADD  VAR3      VAR4   113
     C  N56                MOVE WPROD     TPROD
      *----------------------------------------------------------
  
  WADJ = Ajustement
  WECT = les Entrees
  WISS = les sorties  
  WOPB = Stock debut
regle de gestion :
VAR3 = Stock
stock= stock debut + les Entrees - les sorties + ajustement.
en plus, en peut trouver un article dans plusieur emplacement,
ici dans cette exemple je fais que le chainage c est normal, ce je que veux c est faire une boucle qui va me permetre de lire un artcle avec un emplacement et de faire le calcule du stock et de relire la meme artcle avec un autre emlacement et de faire encore le calcule du stock, avant de lire une autre aricle faire la somme du stock pour avoir le stck par artcle VAR4.
j espere bien que j ai bien explique .
 :sad) Merci
Corrdialement

cs_Kolibot · Answer

Tu peux m'expliquer le rapport avec l'irc scripting....

By Koli

cs_saidel · Answer

je sais pas , je crois pas de rapport

cs_Kolibot · Answer

Donc désolé ça n'est pas mon domaine.

By Koli

RPG400 SOUS AS/400

3 réponses

Votre réponse

Discussions similaires