// COPY LIBRARY-S,NAME-PPL910,REF-000000,DATE-88/06/08,TIME-1116,SUB-RPG H 064 Y-J B 2 PPL910 F******************************************************************** F* UNDERHLL AV GARNLAGER * F******************************************************************** F* DATUM ÅTGÄRD PROGRAMMERARE * F* * F* 1987-09-29 NYUPPLÄGG SM6BGP * F* 1988-06-08 TILLÄGG, P983 - FÄRGSÄTTNINGSSTAT. SM6BGP * F* * F******************************************************************** F* --- INDIKATORFÖRTECKNING --- * F* * F* 01 INPUT FRÅN START- OCH KONTROLLBILD * F* 02 INPUT FRÅN NYUPPLÄGG BILD 1 * F* 03 INPUT FRÅN NYUPPLÄGG BILD 2 * F* 21 EJ GILTLIGT DATUM * F* 22 EJ GILTLIG TRANSAKTIONSKOD * F* 23 EJ GILTLIGT GARN * F* 24 EJ GILTLIG FÄRG * F******************************************************************** F* FWORK CP F 1500 WORKSTN FP013 IC F 640R DISK FP003 IC F 128R16AI 4 DISK FP062 IC F 256R 3AI 4 DISK FP066 UC F 128R 7AI 4 DISK FP083 ID F 960 96L13AI 4 DISK FP983L ID F 660 66L13AI 4 DISK FP980 UC F 128R13AI 4 DISK FP078 O F 48 DISK A E MSG 1 10 77 E CRR 105 77 E CVR 15 77 E NO1 6 1 E NO2 6 1 E NO3 6 1 E NO4 6 1 E NO5 6 1 E NO6 6 1 E* --- E LSG 1 10 77 E LRR 105 77 E LVR 15 77 E LOL 7 1 IWORK NS 01 1 CA I 2 50DATUM I 2 20DR I 3 40DVECK I 5 50DDAG I 6 70LTYP I 8 100GARNNR I 11 140FÄRGNR I 8 140GARNFÄ I 15 200FGSTNR 50 I NS 02 1 CB I 2 80KILO I 9 18 WANMGF 51 I NS 03 1 CC I NS 30 1 CD I NS 92 IP062 NS 04 3NC9 I 7 30 BENÄMN I NS 05 IP066 NS 06 3NC9 I P 34 370LAGER I P 38 410BOKAT I P 42 450AKTIV I P 46 490FÄRGST I P 50 530AKPRSA I P 54 570AKFGSA I P 58 610AKPRBO I P 62 650AKFGBO I P 66 690AKPRFG I P 70 730AKFGFG I 74 83 ANMGAF I NS 07 IP003 NS 08 3NC9 I 20 54 TRANS I NS 09 IP013 NS 10 I 150 1500INR IP980 NS 11 3NC9 I P 21 240FGANNR I P 29 320INLEV I 49 73 ANMFÄR I NS 12 IP083 NS 13 3NC9 I 4 100GAF083 I 11 160BOK083 I 17 200ART083 I 21 230FRG083 I 24 291VRP083 I 30 351VFT083 I 36 411SUM083 I 46 46 AKOD83 I 67 721UTNVRP I 73 781UTNVFT I 79 841UTNTOT I NS 14 IP983L NS 38 3NC9 I 4 100GF983L I 11 160FÄ983L I 17 200DA983L I P 21 240KI983L I 25 48 AN983L I 49 520AVSLUT I NS 39 I DS I 1 77 CRAD I 1 6 CBOK I 10 13 CART I 16 18 CFRG I 20 20 CKOD I 23 28 CVRP I 32 37 CVFT I 42 47 CJRP I 51 56 CJFT I 61 66 CSUM I 71 76 CTOT I DS I 1 77 LRAD I 6 11 LFÄNR I 23 26 LDAT I 33 36 LAVS I 41 47 LKILO I 52 75 LANM I UDS I 1 2 WSID I 3 8 WSDATE C EXSR SETOF C 02 KA EXSR CFILLA C 02 KC EXSR LFILLA C* --- C 02 KA COR 02 KC COR KB COR KG GOTO SLUT C 01 EXSR KOLL10 C 01 EXSR KOLL11 C 01 EXSR KOLL12 C 01 EXSR FEL C 02 EXSR KOLL20 C 02 EXSR KOLL21 C 02 EXSR FEL C 02N99 EXSR UPPDAT C 03NKA EXSR B03 C 30NKA EXSR B04 C SLUT TAG C******************************************************************** C* NOLLSTÄLLNING OCH SETOF * C******************************************************************** C SETOF BEGSR C SETOF 212223 C SETOF 242526 C SETOF 27 99 C N91 1 CHAINP013 H2 C N91 INR ADD 1 INR2 10 C N91 SETON 91 C ENDSR C******************************************************************** C* KONTROLL MOT KOD-REG. OCH ALLMÄNNA KONTROLLER * C******************************************************************** C KOLL10 BEGSR C SETOF 21 C INR COMP DR 20 C N20 INR2 COMP DR 20 C N20 SETON 21 C DVECK COMP 0 20 C N20 DVECK COMP 53 20 C 20 SETON 21 C DDAG COMP 0 20 C N20 DDAG COMP 7 20 C 20 SETON 21 C LTYP COMP 10 20 C 20 SETON 40 C N20 SETOF 40 C MOVEL'P078' KEY11 11 C MOVE '010' KEY11 C MOVELKEY11 KEY16 16 C MOVELLTYP KEY5 5 C MOVE KEY5 KEY16 C KEY16 CHAINP003 09 C 09 SETON 22 C ENDSR C******************************************************************** C* KONTROLL MOT GARN - & GARN / FÄRG-REGISTREN * C******************************************************************** C KOLL11 BEGSR C GARNNR CHAINP062 05 C 05 SETON 23 C N23 GARNFÄ CHAINP066 07 C LAGER SUB AKTIV DISP 70 C 07 SETON 2324 C ENDSR C******************************************************************** C* KONTROLL MOT FÄRGSÄTTNINGSREGISTRET * C******************************************************************** C KOLL12 BEGSR C 40 MOVELGARNFÄ KEY13 13 C 40 MOVE FGSTNR KEY13 C 40 KEY13 CHAINP980 12 C 40 12 SETON 25 C ENDSR C******************************************************************** C* KONTROLL AV ANTAL KILO VID TRANS-KOD 10 * C******************************************************************** C KOLL20 BEGSR C 40 KILO COMP 0 2626 C 40 26 SETON 26 C ENDSR C******************************************************************** C* KONTROLL AV GILTLIG TRANSKOD VID UPPDATERING * C******************************************************************** C KOLL21 BEGSR C LTYP COMP 11 27 C 27 SETON 27 C ENDSR C******************************************************************** C* SÄTT PÅ GEMENSAM FELINDIKATOR * C******************************************************************** C FEL BEGSR C 21 COR 22 COR 23 COR 24 COR 25 COR 26 COR 27 SETON 99 C ENDSR C******************************************************************** C* UPPDATERING AV SALDO-UPPGIFTER * C******************************************************************** C UPPDAT BEGSR C GARNFÄ CHAINP066 07 C 40 ADD KILO AKPRSA C ADD KILO LAGER C LAGER SUB AKTIV DISP 70 C 40 SUB KILO FÄRGST C N51 MOVE WANMGF ANMGAF C SETON 60 C EXCPT C 60 SETOF 60 C 40 MOVELGARNFÄ KEY13 13 C 40 MOVE FGSTNR KEY13 C 40 KEY13 CHAINP980 12 C 40 ADD KILO INLEV C 40N12 SETON 61 C EXCPT C Z-ADD0 KILO C 61 SETOF 61 C ENDSR C******************************************************************** C* CFILLA - FYLLER UPP ARRAY MED DATA TILL B03 * C******************************************************************** C* C CFILLA BEGSR C* C Z-ADD*ZEROS Y 30 C MOVEL*BLANKS CRR C* C MOVELGARNFÄ KEY083 130 C* C KEY083 SETLLP083 C* C CFILOP TAG C* C SETOF 131490 RECORDIND + EOF C READ P083 90 EOF C 14 GOTO CFILOP EJ GILTLIG POST C* C N90 GARNFÄ COMP GAF083 9090 C 90 GOTO CSLUT C* C Z-ADDVRP083 VRPA83 60H AVRUNDA RESULTATET C Z-ADDVFT083 VFTA83 60H " C Z-ADDUTNVRP JRPA83 60H " C Z-ADDUTNVFT JFTA83 60H " C Z-ADDSUM083 SUMA83 60H " C Z-ADDUTNTOT TOTA83 60H " C* C MOVEL*BLANKS CRAD C MOVELBOK083 CBOK C MOVELART083 CART C MOVELFRG083 CFRG C MOVELAKOD83 CKOD <---- NY RAD 880114 C MOVELVRPA83 CVRP FLYTTA RESULTET HÄR C MOVELVFTA83 CVFT " C MOVELJRPA83 CJRP " C MOVELJFTA83 CJFT " C MOVELSUMA83 CSUM " C MOVELTOTA83 CTOT " C* C MOVEAVRPA83 NO1 INLED.NOLLOR BORT C MOVEAVFTA83 NO2 " C MOVEAJRPA83 NO3 " C MOVEAJFTA83 NO4 " C MOVEASUMA83 NO5 " C MOVEATOTA83 NO6 " C* C EXSR BLANK1 STICK IVÄG & BLANKA C EXSR BLANK2 " C EXSR BLANK3 " C EXSR BLANK4 " C EXSR BLANK5 " C EXSR BLANK6 " C* C MOVEANO1 CVRP OCH FLYTTA TILLBAKA C MOVEANO2 CVFT " C MOVEANO3 CJRP " C MOVEANO4 CJFT " C MOVEANO5 CSUM " C MOVEANO6 CTOT " C* C ADD 1 Y C MOVE CRAD CRR,Y C Y COMP 105 90 C* C 90 GOTO CFILOP C* C CSLUT TAG C* C Z-ADD*ZEROS Y C EXSR B03 C* C ENDSR C******************************************************************** C* BLANK1 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C******************************************************************** C* C BLANK1 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR1 TAG C ADD 1 X C ADD 1 A C* C NO1,X COMP ' ' 9090 C NO1,X COMP '0' 90 C 90 MOVEL' ' NO1,X C 90 A COMP 6 90 C 90 GOTO STAR1 C* C ENDSR C******************************************************************** C* BLANK2 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C******************************************************************** C* C BLANK2 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR2 TAG C ADD 1 X C ADD 1 A C* C NO2,X COMP ' ' 9090 C NO2,X COMP '0' 90 C 90 MOVEL' ' NO2,X C 90 A COMP 6 90 C 90 GOTO STAR2 C* C ENDSR C******************************************************************** C* BLANK3 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C******************************************************************** C* C BLANK3 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR3 TAG C ADD 1 X C ADD 1 A C* C NO3,X COMP ' ' 9090 C NO3,X COMP '0' 90 C 90 MOVEL' ' NO3,X C 90 A COMP 6 90 C 90 GOTO STAR3 C* C ENDSR C******************************************************************** C* BLANK4 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C******************************************************************** C* C BLANK4 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR4 TAG C ADD 1 X C ADD 1 A C* C NO4,X COMP ' ' 9090 C NO4,X COMP '0' 90 C 90 MOVEL' ' NO4,X C 90 A COMP 6 90 C 90 GOTO STAR4 C* C ENDSR C******************************************************************** C* BLANK5 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG P BILDEN C******************************************************************** C* C BLANK5 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR5 TAG C ADD 1 X C ADD 1 A C* C NO5,X COMP ' ' 9090 C NO5,X COMP '0' 90 C 90 MOVEL' ' NO5,X C 90 A COMP 6 90 C 90 GOTO STAR5 C* C ENDSR C******************************************************************** C* BLANK6 - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C******************************************************************** C* C BLANK6 BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR6 TAG C ADD 1 X C ADD 1 A C* C NO6,X COMP ' ' 9090 C NO6,X COMP '0' 90 C 90 MOVEL' ' NO6,X C 90 A COMP 6 90 C 90 GOTO STAR6 C* C ENDSR C******************************************************************** C* LFILLA - FYLLER UPP ARRAY MED DATA TILL B04 * C******************************************************************** C* C LFILLA BEGSR C* C Z-ADD*ZEROS Y 30 C MOVEL*BLANKS LRR C* C MOVELGARNFÄ KEY983 130 C* C KEY983 SETLLP983L C* C LFILOP TAG C* C SETOF 383990 C READ P983L 90 C 39 GOTO LFILOP C* C N90 GARNFÄ COMP GF983L 9090 C 90 GOTO LSLUT C* C MOVEL*BLANKS LRAD C MOVELFÄ983L LFÄNR C MOVELDA983L LDAT C MOVELAVSLUT LAVS C MOVELAN983L LANM C* C MOVEAKI983L LOL C EXSR BLANKA C MOVEALOL LKILO C* C ADD 1 Y C MOVE LRAD LRR,Y C Y COMP 105 90 C* C 90 GOTO LFILOP C* C LSLUT TAG C* C Z-ADD*ZEROS Y C EXSR B04 C* C ENDSR C******************************************************************** C* C* BLANKA - TAR BORT ALLA INLEDANDE NOLLOR FÖR UTLÄGG PÅ BILDEN C* C******************************************************************** C* C BLANKA BEGSR C* C Z-ADD0 X 10 C Z-ADD0 A 10 C* C STAR TAG C ADD 1 X C ADD 1 A C* C LOL,X COMP ' ' 9090 C LOL,X COMP '0' 90 C 90 MOVEL' ' LOL,X C 90 A COMP 7 90 C 90 GOTO STAR C* C ENDSR C******************************************************************** C* B03 - BILD 03 SÖKBILD C******************************************************************** C* C B03 BEGSR C* C 03NKDNKE GOTO B03S C* C KD SUB 30 Y C KD Y IFLT *ZEROS C Z-ADD*ZEROS Y C MOVELMSG,2 ERR 77 C END C* C KE Y IFGT 90 C Z-ADD90 Y C MOVELMSG,3 ERR C END C* --- HILOEQ C Y COMP 1 71 C 71 MOVELMSG,4 ERR 77 C* --- C Y COMP 1 72 72 C 72 Y COMP 15 7272 C 72 MOVELMSG,5 ERR C* --- C Y COMP 16 73 73 C 73 Y COMP 30 7373 C 73 MOVELMSG,6 ERR C* --- C Y COMP 31 74 74 C 74 Y COMP 45 7474 C 74 MOVELMSG,7 ERR C* --- C Y COMP 46 75 75 C 75 Y COMP 60 7575 C 75 MOVELMSG,8 ERR C* --- C Y COMP 61 76 76 C 76 Y COMP 75 7676 C 76 MOVELMSG,9 ERR C* --- C Y COMP 76 77 77 C 77 MOVELMSG,10 ERR C* --- C* C Z-ADD*ZEROS C 20 C MOVEL*BLANKS CVR C* C B03LOP TAG C ADD 1 Y C ADD 1 C C MOVELCRR,Y CVR,C C C COMP 15 90 C 90 GOTO B03LOP C* C B03S ENDSR C* C******************************************************************** C* B04 - BILD 04 SÖKBILD * C******************************************************************** C* C B04 BEGSR C* C 30NKDNKE GOTO B04S C* C KD SUB 30 Y C KD Y IFLT *ZEROS C Z-ADD*ZEROS Y C MOVELLSG,2 FRR 77 C END C* C KE Y IFGT 90 C Z-ADD90 Y C MOVELLSG,3 FRR C END C* --- HILOEQ C Y COMP 1 71 C 71 MOVELLSG,4 FRR 77 C* --- C Y COMP 1 72 72 C 72 Y COMP 15 7272 C 72 MOVELLSG,5 FRR C* --- C Y COMP 16 73 73 C 73 Y COMP 30 7373 C 73 MOVELLSG,6 FRR C* --- C Y COMP 31 74 74 C 74 Y COMP 45 7474 C 74 MOVELLSG,7 FRR C* --- C Y COMP 46 75 75 C 75 Y COMP 60 7575 C 75 MOVELLSG,8 FRR C* --- C Y COMP 61 76 76 C 76 Y COMP 75 7676 C 76 MOVELLSG,9 FRR C* --- C Y COMP 76 77 77 C 77 MOVELLSG,10 FRR C* --- C Z-ADD*ZEROS C 20 C MOVEL*BLANKS LVR C* C B04LOP TAG C ADD 1 Y C ADD 1 C C MOVELLRR,Y LVR,C C C COMP 15 90 C 90 GOTO B04LOP C* C B04S ENDSR C******************************************************************** OWORK D NKG 92 O OR NKG 01 99 O OR NKG 02 KB O K3 'B01' O UDATE 10 '19 - - ' O N90DATUM 14 O 21 39 ' FELAKTIGT DATUMBEGREPP ' O N90LTYP 41 O 22 66 'FELAKTIG TRANSAKTIONSTYP' O 99GARNNR 69 O 23 94 ' FELAKTIGT GARN-NUMMER ' O 24 94 ' KOMBINATIONEN ' O 99FÄRGNR 98 O 24 123 ' EJ REGISTRERAD ' O 99FGSTNR 129 O 25 154 'FEL FÄRGSÄTTNINGSNUMMER ' O D 01N99NKG O OR 02NKBNKG O AND NKANKC O OR 03 KA O OR 30 KA O K3 'B02' O UDATE 10 '19 - - ' O GARNNR 13 O FÄRGNR 17 O BENÄMN 41 O AKPRSAM 49 O AKFGSAM 58 O AKPRBOM 67 O AKFGBOM 76 O AKPRFGM 85 O AKFGFGM 94 O LAGER M 103 O DISP M 112 O BOKAT M 121 O AKTIV M 130 O FÄRGSTM 139 O ANMGAF 150 O FGANNRM 158 O FGSTNR 165 O ANMFÄR 190 O INLEV M 198 O FGSTNR 205 O ANMFÄR 230 O TRANS 266 O KILO 273 O 26 298 ' ANTALET EJ ACCEPTABELT ' O 27 298 ' SALDOJUST. EJ TILLÅTEN ' O WANMGF 308 O D 02 KA O OR 03NKA O K3 'B03' O UDATE 10 '19 - - ' O GARNNR 13 O FÄRGNR 17 O BENÄMN 41 O CVR 1196 O ERR B1273 O D 02 KC O OR 30NKA O K3 'B04' O UDATE 10 '19 - - ' O GARNNR 13 O FÄRGNR 17 O BENÄMN 41 O LVR 1196 O FRR B1273 O DR KG OP066 E 60 O LAGER 37P O FÄRGST 49P O AKPRSA 53P O N51 ANMGAF 83 OP078 EADD 60 O 1 'P' O LTYP 3 O GARNFÄ 10 O KILO 16P O FGSTNR 26 O DATUM 30 O WSID 40 O WSDATE 46 OP980 E 61 O INLEV 32P O DATUM 36 ** MSG 01 X X Sidan ett Sidan två Sidan tre Sidan fyra Sidan fem Sidan sex Sidan sju ** LSG 01 X X Sidan ett Sidan två Sidan tre Sidan fyra Sidan fem Sidan sex Sidan sju // CEND