├── LICENSE.md ├── README.md └── src ├── A0010301.pli ├── G0019999.pli ├── GML ├── FO04D1X1.cobol ├── FO04F1X1.cobol ├── FRMERK.cobol ├── FRREDIG.cobol ├── PLUKKFR.cobol ├── PLUKKFRN.cobol ├── R0010101.pli ├── R0010102.pli ├── R0010103.pli ├── R0010104.pli ├── R0010201.pli ├── R0010202.pli ├── R0010301.pli ├── R0010401.pli ├── R0010410.pli ├── R0010411.pli ├── R0010412.pli ├── R0010420.pli ├── R0010421.pli ├── R0010422.pli ├── R0010423.pli ├── R0010424.pli ├── R0010425.pli ├── R0010426.pli ├── R0010427.pli ├── R0010430.pli ├── R0010440.pli ├── R0010450.pli ├── R0010451.pli ├── R0010452.pli ├── R0010460.pli ├── R0010470.pli ├── R0010480.pli ├── R0010490.pli ├── R00104A1.pli ├── R00104AF.pli ├── R00104AP.pli ├── R00104B6.pli ├── R00104BP.pli ├── R00104E1.pli ├── R00104E2.pli ├── R00104E3.pli ├── R00104E4.pli ├── R00104EE.pli ├── R00104EF.pli ├── R00104EN.pli ├── R00104EP.pli ├── R00104F7.pli ├── R00104FB.pli ├── R00104FO.pli ├── R00104FT.pli ├── R00104KF.pli ├── R00104O1.pli ├── R00104O2.pli ├── R00104U2.pli ├── R00104U3.pli ├── R00104UF.pli ├── R00104UP.pli ├── R00104US.pli ├── R0010501.pli ├── R0010502.pli ├── R0010503.pli ├── R0010504.pli ├── R0010505.pli ├── R0010506.pli ├── R0010507.pli ├── R0010508.pli ├── R0010509.pli ├── R0010510.pli ├── R0010520.pli ├── R0010521.pli ├── R0010522.pli ├── R0010601.pli ├── R0010602.pli ├── R0010603.pli ├── R0010604.pli ├── R0010605.pli ├── R0010606.pli ├── R0010607.pli ├── R0010608.pli ├── R0010609.pli ├── R0010610.pli ├── R0010620.pli ├── R0010621.pli ├── R0010622.pli ├── R0010701.pli ├── R0010702.pli ├── R0010703.pli ├── R0010705.pli ├── R0010706.pli ├── R0010707.pli ├── R0010709.pli ├── R0010801.pli ├── R0010802.pli ├── R0010803.pli ├── R0010805.pli ├── R0010806.pli ├── R0010807.pli ├── R0010808.pli ├── R0010809.pli ├── R0010820.pli ├── R0010821.pli ├── R0010822.pli ├── R0010823.pli ├── R0010901.pli ├── R0010902.pli ├── R0010903.pli ├── R0010905.pli ├── R0010906.pli ├── R0010907.pli ├── R0010909.pli ├── R0010920.pli ├── R0010921.pli ├── R0010922.pli ├── R0010926.pli ├── R0011001.pli ├── R0011002.pli ├── R0011003.pli ├── R0011005.pli ├── R0011006.pli ├── R0011007.pli ├── R0011009.pli ├── R0011020.pli ├── R0011021.pli ├── R0011022.pli ├── R0011101.pli ├── R0011102.pli ├── R0011103.pli ├── R0011106.pli ├── R0011109.pli ├── R0011120.pli ├── R0011121.pli ├── R0011122.pli ├── R0011201.pli ├── R0011202.pli ├── R0011203.pli ├── R0011204.pli ├── R0011206.pli ├── R0011207.pli ├── R0011209.pli ├── R0011210.pli ├── R0011220.pli ├── R0011222.pli ├── R0011301.pli ├── R0011302.pli ├── R0011303.pli ├── R0011304.pli ├── R0011306.pli ├── R0011401.pli ├── R0011402.pli ├── R0011403.pli ├── R0011405.pli ├── R0011406.pli ├── R0011409.pli ├── R0011420.pli ├── R0011430.pli ├── R0011440.pli ├── R0011450.pli ├── R0011460.pli ├── R0011501.pli ├── R0011502.pli ├── R0011503.pli ├── R0011506.pli ├── R0011509.pli ├── R0011520.pli ├── R0011601.pli ├── R0011602.pli ├── R0011603.pli ├── R0011606.pli ├── R0011609.pli ├── R0011620.pli ├── R0011622.pli ├── R0011701.pli ├── R0011702.pli ├── R0011703.pli ├── R0011706.pli ├── R0011709.pli ├── R0011720.pli ├── R0011801.pli ├── R0011802.pli ├── R0011803.pli ├── R0011806.pli ├── R0011809.pli ├── R0011820.pli ├── R0011831.pli ├── R0011833.pli ├── R0011836.pli ├── R0011840.pli ├── R0011901.pli ├── R0011902.pli ├── R0011903.pli ├── R0011905.pli ├── R0011906.pli ├── R0011908.pli ├── R0011909.pli ├── R0011920.pli ├── R0011921.pli ├── R0011922.pli ├── R0012001.pli ├── R0012002.pli ├── R0012004.pli ├── R0012201.pli ├── R0013001.pli ├── R0013101.pli ├── R0013110.pli ├── R0013301.pli ├── R0013501.pli ├── R0013520.pli ├── R0013601.pli ├── R0014001.pli ├── R0014010.pli ├── R0014011.pli ├── R0014012.pli ├── R0014015.pli ├── R0014016.pli ├── R0014101.pli ├── R0014111.pli ├── R0014121.pli ├── R0014122.pli ├── R0014123.pli ├── R0014124.pli ├── R0014125.pli ├── R0014126.pli ├── R0014127.pli ├── R0014128.pli ├── R0014129.pli ├── R0014131.pli ├── R0014132.pli ├── R0014133.pli ├── R0014134.pli ├── R0014135.pli ├── R0014136.pli ├── R0014137.pli ├── R0014138.pli ├── R0014139.pli ├── R0014140.pli ├── R0014141.pli ├── R0014142.pli ├── R0014143.pli ├── R0014144.pli ├── R0014145.pli ├── R0014146.pli ├── R0014147.pli ├── R0014148.pli ├── R0014151.pli ├── R0014152.pli ├── R0014153.pli ├── R0014154.pli ├── R0014155.pli ├── R0014156.pli ├── R0014158.pli ├── R0014159.pli ├── R0014161.pli ├── R0014162.pli ├── R0014163.pli ├── R0014164.pli ├── R0014165.pli ├── R0014166.pli ├── R0014168.pli ├── R0014171.pli ├── R0014172.pli ├── R0014180.pli ├── R0014181.pli ├── R0014182.pli ├── R0014183.pli ├── R0014186.pli ├── R0014199.pli ├── R0014201.pli ├── R0014221.pli ├── R0014222.pli ├── R0014231.pli ├── R0014232.pli ├── R0014233.pli ├── R0014241.pli ├── R0014242.pli ├── R0014243.pli ├── R0014244.pli ├── R0014251.pli ├── R0014252.pli ├── R0014253.pli ├── R0014301.pli ├── R0014321.pli ├── R0014322.pli ├── R0014323.pli ├── R0014324.pli ├── R0014326.pli ├── R0014327.pli ├── R0014370.pli ├── R0014380.pli ├── R0014381.pli ├── R0014401.pli ├── R0014421.pli ├── R0014422.pli ├── R0014423.pli ├── R0014424.pli ├── R0014425.pli ├── R0014426.pli ├── R0014427.pli ├── R0014431.pli ├── R0014470.pli ├── R0014471.pli ├── R0014472.pli ├── R0014480.pli ├── R0014482.pli ├── R0014501.pli ├── R0014521.pli ├── R0014522.pli ├── R0014523.pli ├── R0014525.pli ├── R0014580.pli ├── R0014601.pli ├── R0014621.pli ├── R0014701.pli ├── R0014721.pli ├── R0014722.pli ├── R0014723.pli ├── R0014724.pli ├── R0014725.pli ├── R0014801.pli ├── R0014901.pli ├── R00149X1.pli ├── R0015101.pli ├── R0015201.pli ├── R0015205.pli ├── R0015206.pli ├── R0015207.pli ├── R0015208.pli ├── R0015209.pli ├── R0015210.pli ├── R0015211.pli ├── R0015212.pli ├── R0015214.pli ├── R0015216.pli ├── R0015217.pli ├── R0015219.pli ├── R0015220.pli ├── R00152N5.pli ├── R00152N6.pli ├── R00152N8.pli ├── R00152N9.pli ├── R00152NB.pli ├── R00152NC.pli ├── R00152U6.pli ├── R00152U8.pli ├── R00152UC.pli ├── R00152UE.pli ├── R00152UJ.pli ├── R0015301.pli ├── R0015305.pli ├── R0015306.pli ├── R0015307.pli ├── R0015308.pli ├── R0015309.pli ├── R0015310.pli ├── R0015311.pli ├── R0015312.pli ├── R0015314.pli ├── R0015316.pli ├── R0015317.pli ├── R0015319.pli ├── R0015320.pli ├── R00153N5.pli ├── R00153N6.pli ├── R00153N8.pli ├── R00153N9.pli ├── R00153NB.pli ├── R00153NC.pli ├── R00153U6.pli ├── R00153U8.pli ├── R00153UC.pli ├── R00153UE.pli ├── R00153UJ.pli ├── R0015401.pli ├── R0015411.pli ├── R0015420.pli ├── R0015430.pli ├── R0015470.pli ├── R0015501.pli ├── R0015502.pli ├── R0015601.pli ├── R0015602.pli ├── R0016001.pli ├── R0016022.pli ├── R0016023.pli ├── R0016024.pli ├── R0016031.pli ├── R0016032.pli ├── R0016033.pli ├── R0016034.pli ├── R0016035.pli ├── R0016036.pli ├── R0016037.pli ├── R0016038.pli ├── R0016039.pli ├── R0016051.pli ├── R0016052.pli ├── R0016053.pli ├── R0016101.pli ├── R0016201.pli ├── R0016301.pli ├── R0016401.pli ├── R0016501.pli ├── R0016601.pli ├── R0017001.pli ├── R0017021.pli ├── R0017022.pli ├── R0017023.pli ├── R0017024.pli ├── R0017025.pli ├── R0017031.pli ├── R0017032.pli ├── R0017033.pli ├── R0017034.pli ├── R0017035.pli ├── R0017036.pli ├── R0017037.pli ├── R0017041.pli ├── R0017042.pli ├── R0017043.pli ├── R0017044.pli ├── R0017045.pli ├── R0017046.pli ├── R0017047.pli ├── R0017048.pli ├── R0017049.pli ├── R0017050.pli ├── R0017101.pli ├── R0017102.pli ├── R0017201.pli ├── R0017202.pli ├── R0017203.pli ├── R0017301.pli ├── R0017401.pli ├── R0017411.pli ├── R0017412.pli ├── R0017413.pli ├── R0017414.pli ├── R0017415.pli ├── R0017416.pli ├── R0017501.pli ├── R0017601.pli ├── R0017611.pli ├── R0019003.pli ├── R0019021.pli ├── R0019022.pli ├── R0019023.pli ├── R0019024.pli ├── R0019029.pli ├── R0019031.pli ├── R0019032.pli ├── R0019033.pli ├── R0019034.pli ├── R0019035.pli ├── R0019036.pli ├── R0019037.pli ├── R0019038.pli ├── R0019039.pli ├── R0019041.pli ├── R0019042.pli ├── R0019043.pli ├── R0019044.pli ├── R0019045.pli ├── R0019046.pli ├── R0019047.pli ├── R0019051.pli ├── R0019052.pli ├── R0019053.pli ├── R0019054.pli ├── R0019055.pli ├── R0019056.pli ├── R0019057.pli ├── R0019058.pli ├── R0019059.pli ├── R0019061.pli ├── R0019062.pli ├── R0019063.pli ├── R0019064.pli ├── R0019065.pli ├── R0019071.pli ├── R0019072.pli ├── R0019073.pli ├── R0019081.pli ├── R0019703.pli ├── R0019704.pli ├── R0019901.pli ├── R0019902.pli ├── R0019903.pli ├── R0019904.pli ├── R0019905.pli ├── R0019906.pli ├── R0019907.pli ├── R0019908.pli ├── R0019909.pli ├── R0019910.pli ├── R0019911.pli ├── R0019912.pli ├── R0019913.pli ├── R0019921.pli ├── R0019922.pli ├── R0019923.pli ├── R0019924.pli ├── R0019926.pli ├── R0019928.pli ├── R0019929.pli ├── R0019930.pli ├── R0019933.pli ├── R0019934.pli ├── R0019936.pli ├── R0019937.pli ├── R0019938.pli ├── R0019939.pli ├── R0019940.pli ├── R0019942.pli ├── R0019943.pli ├── R0019944.pli ├── R0019945.pli ├── R0019946.pli ├── R0019947.pli ├── R0019948.pli ├── R0019949.pli ├── R001994Y.pli ├── R0019950.pli ├── R0019951.pli ├── R0019952.pli ├── R0019953.pli ├── R0019954.pli ├── R0019955.pli ├── R0019956.pli ├── R0019957.pli ├── R0019958.pli ├── R0019959.pli ├── R0019960.pli ├── R0019961.pli ├── R0019963.pli ├── R0019964.pli ├── R0019965.pli ├── R0019966.pli ├── R0019967.pli ├── R0019968.pli ├── R0019969.pli ├── R0019D70.pli ├── R0019E04.pli ├── R0019F01.pli ├── R0019F02.pli ├── R0019F03.pli ├── R0019F05.pli ├── R0019F21.pli ├── R0019H01.pli ├── R0019H04.pli ├── R0019H50.pli ├── R0019H55.pli ├── R0019H60.pli ├── R0019H80.pli ├── R001A401.pli ├── R001A412.pli ├── R001A470.pli ├── R001B001.pli ├── R001B03A.pli ├── R001B401.pli ├── R001B412.pli ├── R001B470.pli ├── R001BYDL.cobol ├── R001C401.pli ├── R001C412.pli ├── R001C470.pli ├── R001I101.pli ├── R001I201.pli ├── R001I301.pli ├── R001I401.pli ├── R001I402.pli ├── R001I406.pli ├── R001I501.pli ├── R001I601.pli ├── R001I701.pli ├── R001I801.pli ├── R001I901.pli ├── R001I902.pli ├── R001I903.pli ├── R001I904.pli ├── R001IA01.pli ├── R001IA02.pli ├── R001IA03.pli ├── R001IA04.pli ├── R001IA06.pli ├── R001IA09.pli ├── R001N501.pli ├── R001N502.pli ├── R001N503.pli ├── R001N504.pli ├── R001N506.pli ├── R001N507.pli ├── R001N509.pli ├── R001N510.pli ├── R001N520.pli ├── R001N521.pli ├── R001N522.pli ├── R001N601.pli ├── R001N602.pli ├── R001N603.pli ├── R001N604.pli ├── R001N605.pli ├── R001N606.pli ├── R001N607.pli ├── R001N608.pli ├── R001N609.pli ├── R001N610.pli ├── R001N620.pli ├── R001N621.pli ├── R001N622.pli ├── R001N801.pli ├── R001N802.pli ├── R001N803.pli ├── R001N805.pli ├── R001N806.pli ├── R001N807.pli ├── R001N808.pli ├── R001N809.pli ├── R001N820.pli ├── R001N821.pli ├── R001N822.pli ├── R001N823.pli ├── R001N824.pli ├── R001N901.pli ├── R001N902.pli ├── R001N903.pli ├── R001N905.pli ├── R001N906.pli ├── R001N907.pli ├── R001N909.pli ├── R001N920.pli ├── R001N921.pli ├── R001N922.pli ├── R001NACO.pli ├── R001NAPL.pli ├── R001NB01.pli ├── R001NB02.pli ├── R001NB03.pli ├── R001NB06.pli ├── R001NB09.pli ├── R001NB20.pli ├── R001NB21.pli ├── R001NB22.pli ├── R001NC01.pli ├── R001NC02.pli ├── R001NC03.pli ├── R001NC04.pli ├── R001NC05.pli ├── R001NC06.pli ├── R001NC07.pli ├── R001NC09.pli ├── R001NC10.pli ├── R001NC20.pli ├── R001NC22.pli ├── R001NN11.pli ├── R001NN12.pli ├── R001NN13.pli ├── R001NN14.pli ├── R001NN15.pli ├── R001NO10.pli ├── R001NO11.pli ├── R001NO12.pli ├── R001NO13.pli ├── R001NO14.pli ├── R001NO15.pli ├── R001NO16.pli ├── R001NO17.pli ├── R001NO18.pli ├── R001NO19.pli ├── R001NO1A.pli ├── R001NO1B.pli ├── R001NO20.pli ├── R001NO30.pli ├── R001NO40.pli ├── R001NO50.pli ├── R001NRCO.pli ├── R001NRPL.pli ├── R001NU12.pli ├── R001NU16.pli ├── R001NU1A.pli ├── R001O301.pli ├── R001S001.pli ├── R001S003.pli ├── R001SP01.pli ├── R001TE01.pli ├── R001TE02.pli ├── R001TK01.pli ├── R001TK02.pli ├── R001TK03.pli ├── R001TK04.pli ├── R001TK06.pli ├── R001TK07.pli ├── R001TK08.pli ├── R001TK09.pli ├── R001TK11.pli ├── R001TK12.pli ├── R001TK13.pli ├── R001TK41.pli ├── R001TK42.pli ├── R001TK43.pli ├── R001TK44.pli ├── R001TK46.pli ├── R001TK50.pli ├── R001TK60.pli ├── R001TK61.pli ├── R001TK62.pli ├── R001TK70.pli ├── R001TK80.pli ├── R001TK81.pli ├── R001TK82.pli ├── R001TK83.pli ├── R001TK92.pli ├── R001TKAA.pli ├── R001TKOI.pli ├── R001TRAN.pli ├── R001U601.pli ├── R001U602.pli ├── R001U603.pli ├── R001U605.pli ├── R001U606.pli ├── R001U609.pli ├── R001U620.pli ├── R001U621.pli ├── R001U622.pli ├── R001U623.pli ├── R001U801.pli ├── R001U802.pli ├── R001U803.pli ├── R001U805.pli ├── R001U806.pli ├── R001U809.pli ├── R001U820.pli ├── R001U821.pli ├── R001U822.pli ├── R001U823.pli ├── R001UC01.pli ├── R001UC02.pli ├── R001UC03.pli ├── R001UC04.pli ├── R001UC05.pli ├── R001UC06.pli ├── R001UC07.pli ├── R001UC09.pli ├── R001UC10.pli ├── R001UC20.pli ├── R001UC22.pli ├── R001UE01.pli ├── R001UE02.pli ├── R001UE03.pli ├── R001UE05.pli ├── R001UE06.pli ├── R001UE09.pli ├── R001UE20.pli ├── R001UE30.pli ├── R001UJ01.pli ├── R001UJ02.pli ├── R001UJ03.pli ├── R001UJ05.pli ├── R001UJ06.pli ├── R001UJ09.pli ├── R001UJ20.pli ├── R001UJ21.pli ├── R001UJ22.pli └── R001X142.pli ├── J0010301.pli ├── R0010101.pli ├── R0010201.pli ├── R0010202.pli ├── R0010301.pli ├── R0010401.pli ├── R0010410.pli ├── R0010411.pli ├── R0010412.pli ├── R0010420.pli ├── R0010421.pli ├── R0010422.pli ├── R0010423.pli ├── R0010424.pli ├── R0010425.pli ├── R0010426.pli ├── R0010427.pli ├── R0010430.pli ├── R0010440.pli ├── R0010450.pli ├── R0010451.pli ├── R0010452.pli ├── R0010460.pli ├── R0010470.pli ├── R0010480.pli ├── R0010490.pli ├── R00104A1.pli ├── R00104AF.pli ├── R00104AP.pli ├── R00104B6.pli ├── R00104BP.pli ├── R00104E1.pli ├── R00104E2.pli ├── R00104E3.pli ├── R00104E4.pli ├── R00104EE.pli ├── R00104EF.pli ├── R00104EN.pli ├── R00104EP.pli ├── R00104F7.pli ├── R00104FB.pli ├── R00104FO.pli ├── R00104FT.pli ├── R00104KF.pli ├── R00104O1.pli ├── R00104O2.pli ├── R00104U2.pli ├── R00104U3.pli ├── R00104UF.pli ├── R00104UP.pli ├── R00104US.pli ├── R0010501.pli ├── R0010502.pli ├── R0010503.pli ├── R0010504.pli ├── R0010505.pli ├── R0010506.pli ├── R0010507.pli ├── R0010508.pli ├── R0010509.pli ├── R0010510.pli ├── R0010520.pli ├── R0010521.pli ├── R0010522.pli ├── R0010601.pli ├── R0010602.pli ├── R0010603.pli ├── R0010604.pli ├── R0010605.pli ├── R0010606.pli ├── R0010607.pli ├── R0010608.pli ├── R0010609.pli ├── R0010610.pli ├── R0010620.pli ├── R0010621.pli ├── R0010622.pli ├── R0010706.pli ├── R0010801.pli ├── R0010802.pli ├── R0010803.pli ├── R0010805.pli ├── R0010806.pli ├── R0010807.pli ├── R0010809.pli ├── R0010820.pli ├── R0010821.pli ├── R0010822.pli ├── R0010823.pli ├── R0010902.pli ├── R0010906.pli ├── R0010907.pli ├── R0011001.pli ├── R0011002.pli ├── R0011003.pli ├── R0011006.pli ├── R0011009.pli ├── R0011020.pli ├── R0011021.pli ├── R0011022.pli ├── R0011101.pli ├── R0011102.pli ├── R0011103.pli ├── R0011106.pli ├── R0011109.pli ├── R0011120.pli ├── R0011121.pli ├── R0011122.pli ├── R0011201.pli ├── R0011202.pli ├── R0011203.pli ├── R0011204.pli ├── R0011206.pli ├── R0011207.pli ├── R0011209.pli ├── R0011210.pli ├── R0011220.pli ├── R0011222.pli ├── R0011301.pli ├── R0011302.pli ├── R0011303.pli ├── R0011304.pli ├── R0011306.pli ├── R0011401.pli ├── R0011402.pli ├── R0011403.pli ├── R0011405.pli ├── R0011406.pli ├── R0011409.pli ├── R0011420.pli ├── R0011430.pli ├── R0011440.pli ├── R0011450.pli ├── R0011460.pli ├── R0011501.pli ├── R0011502.pli ├── R0011503.pli ├── R0011506.pli ├── R0011509.pli ├── R0011520.pli ├── R0011601.pli ├── R0011602.pli ├── R0011603.pli ├── R0011606.pli ├── R0011609.pli ├── R0011620.pli ├── R0011622.pli ├── R0011701.pli ├── R0011702.pli ├── R0011703.pli ├── R0011706.pli ├── R0011709.pli ├── R0011720.pli ├── R0011801.pli ├── R0011802.pli ├── R0011803.pli ├── R0011806.pli ├── R0011809.pli ├── R0011820.pli ├── R0011831.pli ├── R0011833.pli ├── R0011836.pli ├── R0011840.pli ├── R0011901.pli ├── R0011902.pli ├── R0011903.pli ├── R0011905.pli ├── R0011906.pli ├── R0011908.pli ├── R0011909.pli ├── R0011920.pli ├── R0011921.pli ├── R0011922.pli ├── R0012001.pli ├── R0012002.pli ├── R0012004.pli ├── R0012005.pli ├── R0012010.pli ├── R0012101.pli ├── R0012201.pli ├── R0012301.pli ├── R0013001.pli ├── R0013101.pli ├── R0013110.pli ├── R0013301.pli ├── R0013501.pli ├── R0013520.pli ├── R0013601.pli ├── R0014001.pli ├── R0014010.pli ├── R0014011.pli ├── R0014015.pli ├── R0014016.pli ├── R0014021.pli ├── R0014022.pli ├── R0014101.pli ├── R0014111.pli ├── R0014121.pli ├── R0014122.pli ├── R0014123.pli ├── R0014124.pli ├── R0014125.pli ├── R0014126.pli ├── R0014127.pli ├── R0014128.pli ├── R0014129.pli ├── R0014131.pli ├── R0014132.pli ├── R0014133.pli ├── R0014134.pli ├── R0014135.pli ├── R0014136.pli ├── R0014137.pli ├── R0014138.pli ├── R0014139.pli ├── R0014140.pli ├── R0014141.pli ├── R0014142.pli ├── R0014143.pli ├── R0014144.pli ├── R0014145.pli ├── R0014146.pli ├── R0014147.pli ├── R0014148.pli ├── R0014149.pli ├── R0014151.pli ├── R0014152.pli ├── R0014153.pli ├── R0014154.pli ├── R0014155.pli ├── R0014156.pli ├── R0014159.pli ├── R0014161.pli ├── R0014162.pli ├── R0014163.pli ├── R0014164.pli ├── R0014165.pli ├── R0014166.pli ├── R0014168.pli ├── R0014171.pli ├── R0014172.pli ├── R0014180.pli ├── R0014181.pli ├── R0014182.pli ├── R0014183.pli ├── R0014186.pli ├── R0014187.pli ├── R0014199.pli ├── R0014201.pli ├── R0014221.pli ├── R0014222.pli ├── R0014231.pli ├── R0014232.pli ├── R0014233.pli ├── R0014241.pli ├── R0014242.pli ├── R0014243.pli ├── R0014244.pli ├── R0014251.pli ├── R0014252.pli ├── R0014253.pli ├── R0014254.pli ├── R0014270.pli ├── R0014301.pli ├── R0014321.pli ├── R0014322.pli ├── R0014323.pli ├── R0014324.pli ├── R0014326.pli ├── R0014327.pli ├── R0014370.pli ├── R0014380.pli ├── R0014381.pli ├── R0014401.pli ├── R0014410.pli ├── R0014421.pli ├── R0014422.pli ├── R0014423.pli ├── R0014424.pli ├── R0014425.pli ├── R0014426.pli ├── R0014427.pli ├── R0014428.pli ├── R0014431.pli ├── R0014470.pli ├── R0014471.pli ├── R0014472.pli ├── R0014475.pli ├── R0014482.pli ├── R0014501.pli ├── R0014521.pli ├── R0014522.pli ├── R0014523.pli ├── R0014525.pli ├── R0014573.pli ├── R0014574.pli ├── R0014580.pli ├── R0014601.pli ├── R0014621.pli ├── R0014701.pli ├── R0014721.pli ├── R0014722.pli ├── R0014723.pli ├── R0014724.pli ├── R0014801.pli ├── R0014901.pli ├── R0015101.pli ├── R0015201.pli ├── R0015205.pli ├── R0015206.pli ├── R0015207.pli ├── R0015208.pli ├── R0015209.pli ├── R0015210.pli ├── R0015211.pli ├── R0015212.pli ├── R0015214.pli ├── R0015216.pli ├── R0015217.pli ├── R0015219.pli ├── R0015220.pli ├── R00152N5.pli ├── R00152N6.pli ├── R00152N8.pli ├── R00152N9.pli ├── R00152NB.pli ├── R00152NC.pli ├── R00152U6.pli ├── R00152U8.pli ├── R00152UC.pli ├── R00152UE.pli ├── R00152UJ.pli ├── R0015301.pli ├── R0015305.pli ├── R0015306.pli ├── R0015307.pli ├── R0015308.pli ├── R0015309.pli ├── R0015310.pli ├── R0015311.pli ├── R0015312.pli ├── R0015314.pli ├── R0015316.pli ├── R0015317.pli ├── R0015319.pli ├── R0015320.pli ├── R00153N5.pli ├── R00153N6.pli ├── R00153N8.pli ├── R00153N9.pli ├── R00153NB.pli ├── R00153NC.pli ├── R00153U6.pli ├── R00153U8.pli ├── R00153UC.pli ├── R00153UE.pli ├── R00153UJ.pli ├── R0015401.pli ├── R0015411.pli ├── R0015430.pli ├── R0015470.pli ├── R0015501.pli ├── R0015502.pli ├── R0015601.pli ├── R0015602.pli ├── R0016001.pli ├── R0016022.pli ├── R0016023.pli ├── R0016024.pli ├── R0016031.pli ├── R0016032.pli ├── R0016033.pli ├── R0016034.pli ├── R0016035.pli ├── R0016036.pli ├── R0016037.pli ├── R0016038.pli ├── R0016039.pli ├── R0016051.pli ├── R0016052.pli ├── R0016053.pli ├── R0016101.pli ├── R0016201.pli ├── R0016301.pli ├── R0016401.pli ├── R0016501.pli ├── R0016601.pli ├── R0017001.pli ├── R0017021.pli ├── R0017022.pli ├── R0017023.pli ├── R0017024.pli ├── R0017025.pli ├── R0017031.pli ├── R0017032.pli ├── R0017033.pli ├── R0017034.pli ├── R0017035.pli ├── R0017036.pli ├── R0017037.pli ├── R0017041.pli ├── R0017043.pli ├── R0017044.pli ├── R0017045.pli ├── R0017047.pli ├── R0017048.pli ├── R0017049.pli ├── R0017050.pli ├── R0017099.pli ├── R0017101.pli ├── R0018010.pli ├── R0018012.pli ├── R0018021.pli ├── R0018032.pli ├── R0018033.pli ├── R0018034.pli ├── R0018035.pli ├── R0018036.pli ├── R0018037.pli ├── R0018038.pli ├── R0018039.pli ├── R0018090.pli ├── R0018A12.pli ├── R0018B12.pli ├── R0018C12.pli ├── R0019901.pli ├── R0019902.pli ├── R0019903.pli ├── R0019904.pli ├── R0019905.pli ├── R0019906.pli ├── R0019907.pli ├── R0019908.pli ├── R0019909.pli ├── R0019910.pli ├── R0019911.pli ├── R0019912.pli ├── R0019913.pli ├── R0019920.pli ├── R0019921.pli ├── R0019922.pli ├── R0019923.pli ├── R0019924.pli ├── R0019926.pli ├── R0019928.pli ├── R0019929.pli ├── R0019930.pli ├── R0019934.pli ├── R0019936.pli ├── R0019937.pli ├── R0019938.pli ├── R0019939.pli ├── R0019940.pli ├── R0019944.pli ├── R0019945.pli ├── R0019946.pli ├── R0019947.pli ├── R0019948.pli ├── R0019949.pli ├── R001994Y.pli ├── R0019950.pli ├── R0019951.pli ├── R0019952.pli ├── R0019953.pli ├── R0019954.pli ├── R0019955.pli ├── R0019956.pli ├── R0019957.pli ├── R0019958.pli ├── R0019959.pli ├── R0019960.pli ├── R0019961.pli ├── R0019963.pli ├── R0019964.pli ├── R0019965.pli ├── R0019966.pli ├── R0019967.pli ├── R0019968.pli ├── R0019969.pli ├── R0019970.pli ├── R0019971.pli ├── R0019972.pli ├── R0019975.pli ├── R0019981.pli ├── R0019982.pli ├── R0019983.pli ├── R0019984.pli ├── R0019985.pli ├── R0019986.pli ├── R0019987.pli ├── R0019988.pli ├── R0019989.pli ├── R0019990.pli ├── R0019991.pli ├── R0019992.pli ├── R0019993.pli ├── R0019994.pli ├── R0019995.pli ├── R0019996.pli ├── R0019997.pli ├── R0019998.pli ├── R0019999.pli ├── R0019A01.pli ├── R0019A02.pli ├── R0019A03.pli ├── R0019D70.pli ├── R0019E01.pli ├── R0019E04.pli ├── R0019F01.pli ├── R0019F21.pli ├── R0019H01.pli ├── R0019H21.pli ├── R0019H31.pli ├── R0019H3A.pli ├── R0019H41.pli ├── R0019H50.pli ├── R0019H55.pli ├── R0019H60.pli ├── R001A401.pli ├── R001A412.pli ├── R001A470.pli ├── R001B001.pli ├── R001B401.pli ├── R001B412.pli ├── R001B470.pli ├── R001B972.pli ├── R001C401.pli ├── R001C412.pli ├── R001C470.pli ├── R001HL21.pli ├── R001I101.pli ├── R001I201.pli ├── R001I301.pli ├── R001I401.pli ├── R001I402.pli ├── R001I406.pli ├── R001I501.pli ├── R001I601.pli ├── R001I701.pli ├── R001I801.pli ├── R001I901.pli ├── R001I902.pli ├── R001I903.pli ├── R001I904.pli ├── R001IA01.pli ├── R001IA02.pli ├── R001IA03.pli ├── R001IA04.pli ├── R001IA06.pli ├── R001IA09.pli ├── R001N501.pli ├── R001N502.pli ├── R001N503.pli ├── R001N504.pli ├── R001N506.pli ├── R001N507.pli ├── R001N509.pli ├── R001N510.pli ├── R001N520.pli ├── R001N521.pli ├── R001N522.pli ├── R001N601.pli ├── R001N602.pli ├── R001N603.pli ├── R001N604.pli ├── R001N605.pli ├── R001N606.pli ├── R001N607.pli ├── R001N608.pli ├── R001N609.pli ├── R001N610.pli ├── R001N620.pli ├── R001N621.pli ├── R001N622.pli ├── R001N801.pli ├── R001N802.pli ├── R001N803.pli ├── R001N805.pli ├── R001N806.pli ├── R001N807.pli ├── R001N809.pli ├── R001N820.pli ├── R001N821.pli ├── R001N822.pli ├── R001N823.pli ├── R001N824.pli ├── R001N901.pli ├── R001N902.pli ├── R001N903.pli ├── R001N905.pli ├── R001N906.pli ├── R001N907.pli ├── R001N909.pli ├── R001N920.pli ├── R001N921.pli ├── R001N922.pli ├── R001NB01.pli ├── R001NB02.pli ├── R001NB03.pli ├── R001NB06.pli ├── R001NB09.pli ├── R001NB20.pli ├── R001NB21.pli ├── R001NB22.pli ├── R001NC01.pli ├── R001NC02.pli ├── R001NC03.pli ├── R001NC04.pli ├── R001NC05.pli ├── R001NC06.pli ├── R001NC07.pli ├── R001NC09.pli ├── R001NC10.pli ├── R001NC20.pli ├── R001NC22.pli ├── R001NN11.pli ├── R001NN12.pli ├── R001NN13.pli ├── R001NN14.pli ├── R001NN15.pli ├── R001NO10.pli ├── R001NO11.pli ├── R001NO12.pli ├── R001NO13.pli ├── R001NO14.pli ├── R001NO15.pli ├── R001NO16.pli ├── R001NO17.pli ├── R001NO18.pli ├── R001NO19.pli ├── R001NO1A.pli ├── R001NO1B.pli ├── R001NU12.pli ├── R001NU13.pli ├── R001NU16.pli ├── R001NU1A.pli ├── R001S001.pli ├── R001S003.pli ├── R001S100.pli ├── R001TK01.pli ├── R001TK02.pli ├── R001TK03.pli ├── R001TK04.pli ├── R001TK06.pli ├── R001TK07.pli ├── R001TK08.pli ├── R001TK09.pli ├── R001TK11.pli ├── R001TK12.pli ├── R001TK13.pli ├── R001TK41.pli ├── R001TK42.pli ├── R001TK43.pli ├── R001TK44.pli ├── R001TK46.pli ├── R001TK60.pli ├── R001TK61.pli ├── R001TK62.pli ├── R001TK70.pli ├── R001TK80.pli ├── R001TK81.pli ├── R001TK82.pli ├── R001TK83.pli ├── R001U601.pli ├── R001U602.pli ├── R001U603.pli ├── R001U605.pli ├── R001U606.pli ├── R001U609.pli ├── R001U620.pli ├── R001U621.pli ├── R001U622.pli ├── R001U623.pli ├── R001U624.pli ├── R001U625.pli ├── R001U801.pli ├── R001U802.pli ├── R001U803.pli ├── R001U805.pli ├── R001U806.pli ├── R001U807.pli ├── R001U809.pli ├── R001U820.pli ├── R001U821.pli ├── R001U822.pli ├── R001U823.pli ├── R001U825.pli ├── R001UC01.pli ├── R001UC02.pli ├── R001UC03.pli ├── R001UC04.pli ├── R001UC05.pli ├── R001UC06.pli ├── R001UC07.pli ├── R001UC09.pli ├── R001UC10.pli ├── R001UC20.pli ├── R001UC22.pli ├── R001UE01.pli ├── R001UE02.pli ├── R001UE03.pli ├── R001UE05.pli ├── R001UE06.pli ├── R001UE09.pli ├── R001UE20.pli ├── R001UE30.pli ├── R001UJ01.pli ├── R001UJ02.pli ├── R001UJ03.pli ├── R001UJ06.pli ├── R001UJ09.pli ├── R001UJ20.pli ├── R001UJ21.pli ├── R001UJ22.pli ├── R001XXXX.pli └── database.txt /LICENSE.md: -------------------------------------------------------------------------------- 1 | # The MIT License 2 | 3 | Copyright 2010 NAV (Arbeids- og velferdsdirektoratet) - The Norwegian Labour and Welfare Administration 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining 6 | a copy of this software and associated documentation files (the "Software"), 7 | to deal in the Software without restriction, including without limitation 8 | the rights to use, copy, modify, merge, publish, distribute, sublicense, 9 | and/or sell copies of the Software, and to permit persons to whom the 10 | Software is furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included 13 | in all copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 16 | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 17 | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 18 | IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, 19 | DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR 20 | OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE 21 | USE OR OTHER DEALINGS IN THE SOFTWARE. 22 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # DSF - Det Sentrale Folketrygdsystemet 2 | 3 | Dette systemet var et av de eldste IT-systemene i NAV, og kjørte 4 | i produksjon i 51 år, helt fra folketrygden ble innført i 1967. 5 | I januar 2018 ble [Presys](https://github.com/navikt/presys) satt i produksjon, 6 | som sammen med Pesys ble arvtager til DSF. 7 | Da ble også [DSF slått av](https://memu.no/kort-fortalt/pensjonert-it-dinosaur/). 8 | 9 | Systemet er skrevet i [PL/I](https://en.wikipedia.org/wiki/PL/I). 10 | -------------------------------------------------------------------------------- /src/GML/R0010103.pli: -------------------------------------------------------------------------------- 1 | %PAGE; 00001370 2 | REGISTRERING: 00001380 3 | PROC; 00001390 4 | %SKIP; /* */ 00001400 5 | /* ***************************************************************** */00001410 6 | /* */00001420 7 | /* */00001430 8 | /* */00001440 9 | /* */00001450 10 | /* */00001460 11 | /* */00001470 12 | /* ***************************************************************** */00001480 13 | %SKIP; 00001490 14 | DCL 00001500 15 | STYRE_KODE CHAR(2); 00001510 16 | %SKIP(3); 00001520 17 | EXEC CICS SEND MAP('S001014') MAPSET('S001013') MAPONLY ERASE 00001530 18 | WAIT; 00001540 19 | EXEC CICS RECEIVE MAP('S001014') MAPSET('S001013') 00001550 20 | SET(BMSMAPBR); 00001560 21 | STYRE_KODE = S001014I.STYRE_KODEI; 00001570 22 | DO WHILE(STYRE_KODE ^= 'XX'); 00001580 23 | CALL FØRSTEGANGS_BLANKETTKONTROLL(STYRE_KODE); 00001590 24 | EXEC CICS SEND MAP('S001014') MAPSET('S001013') MAPONLY 00001600 25 | ERASE WAIT; 00001610 26 | EXEC CICS RECEIVE MAP('S001014') MAPSET('S001013') 00001620 27 | SET(BMSMAPBR); 00001630 28 | STYRE_KODE = S001014I.STYRE_KODEI; 00001640 29 | END; 00001650 30 | END REGISTRERING; 00001660 31 | -------------------------------------------------------------------------------- /src/GML/R0010104.pli: -------------------------------------------------------------------------------- 1 | %PAGE; /* */ 00001670 2 | /* ***************************************************************** */00001680 3 | /* */00001690 4 | /* */00001700 5 | /* */00001710 6 | /* */00001720 7 | /* */00001730 8 | /* */00001740 9 | /* ***************************************************************** */00001750 10 | %SKIP; 00001760 11 | FØRSTEGANGS_BLANKETTKONTROLL: 00001770 12 | PROC(STYRE_KODE); 00001780 13 | %SKIP; 00001790 14 | DCL 00001800 15 | STYRE_KODE CHAR(2), 00001810 16 | TRANS CHAR(100), 00001820 17 | WORK_STATUS CHAR(10); 00001830 18 | SELECT(STYRE_KODE); 00001840 19 | WHEN('AP') 00001850 20 | CALL DIALOG_GRUNNBL_ALDER(TRANS,WORK_STATUS); 00001860 21 | WHEN('UP') 00001870 22 | CALL DIALOG_GRUNNBL_UFØRE(TRANS,WORK_STATUS); 00001880 23 | WHEN('US') 00001890 24 | CALL DIALOG_GRUNNBL_UFØRESTØNAD(TRANS,WORK_STATUS); 00001900 25 | WHEN('EE') 00001910 26 | CALL DIALOG_GRUNNBL_ETTERL_EKTEF(TRANS,WORK_STATUS); 00001920 27 | WHEN('EF') 00001930 28 | CALL DIALOG_GRUNNBL_ETTERL_FAM(TRANS,WORK_STATUS); 00001940 29 | WHEN('BP') 00001950 30 | CALL DIALOG_GRUNNBL_BARN_EN_DØD(TRANS,WORK_STATUS); 00001960 31 | WHEN('FB') 00001970 32 | CALL DIALOG_GRUNNBL_BARN_TO_DØD(TRANS,WORK_STATUS); 00001980 33 | OTHERWISE 00001990 34 | DO; 00002000 35 | S001014O.MELDINGO = 'UGYLDIG STYRINGSKODE'; 00002010 36 | EXEC CICS SEND MAP('S001014') MAPSET('S001013') 00002020 37 | ERASE WAIT; 00002030 38 | EXEC CICS RECEIVE MAP('S001014') MAPSET('S001013') 00002040 39 | SET(BMSMAPBR); 00002050 40 | END; 00002060 41 | END; 00002070 42 | END FØRSTEGANGS_BLANKETTKONTROLL; 00002080 43 | -------------------------------------------------------------------------------- /src/GML/R0010707.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 14/10-82 09.49.06 AV FARVIK */00000000 2 | /*IDENTIFIKASJON: */00000010 3 | /* R0010707 - PROGRAM I PLI */00000020 4 | /* PROGRAMMERT AV JAN I SEPTEMBER 1981 */00000030 5 | /*HENSIKT: */00000040 6 | /* SKRIVE PROSEDYRER FOR INNSETTING AV FORTEKSTER OG ATTRIBUTTER */00000050 7 | /*TEKST_SPES: */00000060 8 | /* SETTER FORTEKSTER, ATTRIBUTTER I SPESIELL DEL. */00000070 9 | /*FJERN_TEKST_SPES: */00000080 10 | /* SETTER 0 I LENGDEKODE FOR TEKSTER SPESIELL DEL OG BLANKE I */00000090 11 | /* TEKSTFELTET. */00000100 12 | %PAGE; /* SETTER FORTEKSTER, 00000110 13 | ATTRIBUTTER I SPESIELL DEL */ 00000120 14 | TEKST_SPES: 00000130 15 | PROC; 00000140 16 | TFSO = 'SPESIELLE OPPLYSNINGER'; 00000150 17 | TFS1O = 'STATSBORGER'; 00000160 18 | TFS2O = 'BOSATT'; 00000170 19 | TFS3O = 'TRYGDET FØR KRAV'; 00000180 20 | TFS4O = 'FLYKTNING'; 00000190 21 | STATSBORGERA = DFHBMUNP; 00000200 22 | BOSATTA = DFHBMUNP; 00000210 23 | TRYGDET_3ÅRA = DFHBMUNP; 00000220 24 | FLYKTA = DFHBMUNP; 00000230 25 | END TEKST_SPES; 00000240 26 | %PAGE; /* SETTER 0 I LENGDEKODE 00000250 27 | FORTEKSTER SPESIELL DEL OG 00000260 28 | ATTRIBUTTER */ 00000270 29 | /* I SPESIELL DEL */ 00000280 30 | FJERN_TEKST_SPES: 00000290 31 | PROC; 00000300 32 | TFSO = (22)' '; 00000310 33 | TFS1O = (11)' '; 00000320 34 | TFS2O = (6)' '; 00000330 35 | TFS3O = (16)' '; 00000340 36 | TFS4O = (9)' '; 00000350 37 | STATSBORGERA = DFHBMASK; 00000360 38 | BOSATTA = DFHBMASK; 00000370 39 | TRYGDET_3ÅRA = DFHBMASK; 00000380 40 | FLYKTA = DFHBMASK; 00000390 41 | END FJERN_TEKST_SPES; 00000400 42 | -------------------------------------------------------------------------------- /src/GML/R0010808.pli: -------------------------------------------------------------------------------- 1 | TT_EP: R0000010 2 | PROC(FNR,DØDSDATO,MAKS_TT_FØR_1967,TT_TIL_67_ÅR); R0000020 3 | /* ***************************************************************** */R0000030 4 | /* PARAMETER INN: FNR,DØDSDATO */R0000040 5 | /* PARAMETER UT : MAKS_TT_FØR_1967,TT_TIL_67_ÅR */R0000050 6 | /* */R0000060 7 | /* RUTINEN KALLES OPP FRA R0019909 (KONTROLL_TT), OG BEREGNER MAKS */R0000070 8 | /* TT FØR 1967 (MAKS_TT_FØR_1967), OG TT FRA 1966 TIL 67-ÅRS DAGEN */R0000080 9 | /* (TT_TIL_67_ÅR) */R0000090 10 | /* ***************************************************************** */R0000100 11 | DCL R0000110 12 | FNR PIC'(11)9'; R0000120 13 | DCL R0000130 14 | DØDSDATO PIC'(4)9'; R0000140 15 | DCL R0000150 16 | MAKS_TT_FØR_1967 PIC'(2)9', R0000160 17 | TT_TIL_67_ÅR PIC'(4)9'; R0000170 18 | DCL R0000180 19 | FYLT_SEKSTISJU PIC'(5)9'; R0000190 20 | DCL R0000200 21 | W_FNR_MN PIC'(2)9' DEF FNR POS(3), R0000210 22 | W_FNR_ÅR PIC'(2)9' DEF FNR POS(5), R0000220 23 | W_PERSNR PIC'(3)9' DEF FNR POS(7); R0000230 24 | IF W_FNR_ÅR <= 11 ! W_PERSNR >= 500 THEN R0000240 25 | MAKS_TT_FØR_1967 = 40; R0000250 26 | ELSE R0000260 27 | MAKS_TT_FØR_1967 = 1967 - ( R0000270 28 | W_FNR_ÅR + 1900 + 16); R0000280 29 | IF W_PERSNR <= '499' THEN R0000290 30 | FYLT_SEKSTISJU = ((W_FNR_ÅR + 67) * 100) + W_FNR_MN; R0000300 31 | ELSE R0000310 32 | FYLT_SEKSTISJU = (((W_FNR_ÅR + 67) - 100) * 100)+ R0000320 33 | W_FNR_MN; R0000330 34 | IF FYLT_SEKSTISJU >= 6700 THEN R0000340 35 | TT_TIL_67_ÅR = FYLT_SEKSTISJU - 6700; R0000350 36 | ELSE R0000360 37 | TT_TIL_67_ÅR = 0; R0000370 38 | RETURN; R0000380 39 | END TT_EP; R0000390 40 | -------------------------------------------------------------------------------- /src/GML/R0014172.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 13/12-91 12.23.48 AV DYBVIK */00000000 2 | /*IDENTIFIKASJON: */00000010 3 | /* R0014172 - FUNKSJON I PLI */00000020 4 | /* PROGRAMMERER: HERMAN OKT 92 */00000030 5 | /*HENSIKT: */00000040 6 | /* FUNKSJONEN REGNER UT PENSJONSPOENG PÅ GRUNNLAG AV PENSJONS- */00000050 7 | /* GIVENDE INNTEKT OG EVENTUELL UFØREGRAD - BRUKER NY LOV PR 1992 */00000060 8 | /* */00000070 9 | /* ***************************************************************** */00000080 10 | F_INNTEKT_POENG_LOV92 : 00000090 11 | PROC(INNTEKT,ÅR,GV,UFG) RETURNS(FIXED DEC(5,4)); 00000100 12 | %SKIP(2); 00000110 13 | DCL 00000120 14 | INNTEKT FIXED DEC(9), 00000130 15 | ÅR FIXED BIN(15), 00000140 16 | GV FIXED DEC(5), 00000150 17 | UFG FIXED DEC(3), 00000160 18 | W_INNTEKT FIXED DEC(9) INIT(0), 00000170 19 | INNTEKT_POENG FIXED DEC(5,4) INIT(0), 00000180 20 | W_POENG FIXED DEC(6,3) INIT(0); 00000190 21 | 00000200 22 | 00000210 23 | IF INNTEKT > (GV * 12) THEN 00000220 24 | W_INNTEKT = GV * 12; 00000230 25 | ELSE 00000240 26 | W_INNTEKT = INNTEKT; 00000250 27 | 00000260 28 | IF W_INNTEKT > (GV * 6) THEN 00000270 29 | 00000280 30 | W_INNTEKT = (GV * 6) + ((INNTEKT - (GV * 6)) / 3) + 0.5; 00000290 31 | 00000300 32 | W_POENG = (W_INNTEKT - (GV * (100 - UFG) / 100)) / GV; 00000310 33 | 00000320 34 | IF W_POENG < 0 THEN 00000330 35 | W_POENG = 0; 00000340 36 | IF W_POENG > 7.00 THEN 00000350 37 | INNTEKT_POENG = 7.00; 00000360 38 | ELSE 00000370 39 | INNTEKT_POENG = W_POENG; 00000380 40 | RETURN(INNTEKT_POENG); 00000390 41 | %SKIP(2); 00000400 42 | END F_INNTEKT_POENG_LOV92; 00000410 43 | -------------------------------------------------------------------------------- /src/GML/R0014472.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 12/06-98 13.34.43 AV SPA7339 */00000000 2 | /* SIST ENDRET 25/05-98 12.38.18 AV SPA7339 */00000010 3 | /* ----------------------------------------------------------------- */00000020 4 | /* R0014472 : FINN_PÅ_FAKTISK */00000030 5 | /* ------------------------------------------------------ */00000040 6 | /* OPPDATER : W_PÅ.ETTER_91(1,2,4) */00000050 7 | /* W_PÅ.FAKTISKE(1,2,4) */00000060 8 | /* ------------------------------------------------------ */00000070 9 | /* I BRUK : R0014370 , 4470 */00000080 10 | /* ----------------------------------------------------------------- */00000090 11 | FINN_PÅ_FAKTISK : 00000100 12 | PROC (IND,FM_PÅ,SM_PÅ); 00000110 13 | /* -------------------------------------------------------------- */00000120 14 | DCL (IND, 00000130 15 | FM_PÅ, 00000140 16 | SM_PÅ ) 00000150 17 | FIXED BIN(15); 00000160 18 | /* -------------------------------------------------------------- */00000170 19 | DO I = FM_PÅ TO SM_PÅ; 00000180 20 | IF (POREKKE.POENG(IND,I) > 0.010) THEN 00000190 21 | DO; /* NORSKE POENGÅR, TELL OPP */ 00000200 22 | IF (I>91) THEN 00000210 23 | W_PÅ.ETTER_91(1) = W_PÅ.ETTER_91(1) + 1; 00000220 24 | W_PÅ.FAKTISKE(1) = W_PÅ.FAKTISKE(1) + 1; 00000230 25 | END;/* NORSKE POENGÅR, TELL OPP */ 00000240 26 | ELSE 00000250 27 | DO; /* IKKJE GODSKREVET PENSJONSPOENG I NORGE, EØS-ÅR? */ 00000260 28 | IF (B02.INNTEKTSÅR_EØS(IND,I)) THEN 00000270 29 | DO; 00000280 30 | IF (I>91) THEN 00000290 31 | W_PÅ.ETTER_91(2) = W_PÅ.ETTER_91(2) + 1; 00000300 32 | W_PÅ.FAKTISKE(2) = W_PÅ.FAKTISKE(2) + 1; 00000310 33 | END; 00000320 34 | END;/* IKKJE GODSKREVET PENSJONSPOENG I NORGE, EØS-ÅR? */ 00000330 35 | END; /* TELL OPP FAKTISKE POENGÅR I NORGE/EØS OMRÅDET */ 00000340 36 | IF (W_SKAL_BEREGNES(4)) 00000350 37 | THEN W_PÅ.FAKTISKE(4) = B02.PÅ_NORDISK_FAKT(IND); 00000360 38 | /* -------------------------------------------------------------- */00000370 39 | END FINN_PÅ_FAKTISK; 00000380 40 | -------------------------------------------------------------------------------- /src/GML/R0015216.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 11/11-86 11.30.30 AV DYBVIK */00000000 2 | /* SIST ENDRET 21/02-86 06.41.16 AV FARVIK */00000010 3 | /* SIST ENDRET 14/10-85 10.40.59 AV FARVIK */00000020 4 | /* SIST ENDRET 09/08-85 14.01.31 AV FARVIK */00000030 5 | /* SIST ENDRET 23/11-82 07.43.24 AV LUNDEBY */00000040 6 | 00000050 7 | 00000060 8 | %PAGE; 00000070 9 | /* ************************************************************ */ 00000080 10 | /* */ 00000090 11 | /* PROCEDURE SOM LEGGER INN BLANKETT-OPPLYSN. : O1 */ 00000100 12 | /* -------------------------------------------- */ 00000110 13 | /* */ 00000120 14 | /* ************************************************************ */ 00000130 15 | 00000140 16 | P160_LES_O1_TRANS: 00000150 17 | PROC; 00000160 18 | 00000170 19 | 00000180 20 | %PAGE; 00000190 21 | %INCLUDE P0011601; /* TRANS_OMR (BASED) : O1 */ 00000200 22 | 00000210 23 | 00000220 24 | /* ************************************************************ */00000230 25 | /* */00000240 26 | /* FERDIG MED DEKLARASJONENE . EKSEKVERINGEN STARTER . */00000250 27 | /* */00000260 28 | /* LEGGER O1-TRANS OVER VARIABEL-DEL . */00000270 29 | /* */00000280 30 | /* ************************************************************ */00000290 31 | 00000300 32 | TRANS_OMR = '' ; 00000310 33 | 00000320 34 | O1.REGDATO = TRANHIST.REGDATO_ÅMD ; 00000330 35 | O1.TERMID = TRANHIST.TERMID ; 00000340 36 | O1.FNR_DØD = SEARCH_FNR ; 00000350 37 | O1.TKNR_DØD = TRANHIST.TKNR ; 00000360 38 | O1.DØDSDATO_DØD = OPPHBL1.DØDSDATO_DMÅ ; 00000370 39 | O1.FNR_EK = OPPHBL1.FNR_EK ; 00000380 40 | O1.PI_DØD = OPPHBL1.PI ; 00000390 41 | 00000400 42 | END P160_LES_O1_TRANS; 00000410 43 | 00000420 44 | 00000430 45 | -------------------------------------------------------------------------------- /src/GML/R0015220.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 16/10-89 12.44.05 AV DYBVIK */00000000 2 | 00000010 3 | /* ************************************************************ */ 00000020 4 | /* */ 00000030 5 | /* PROCEDURE SOM LESER INN BLANKETT-OPPLYSN. : UF */ 00000040 6 | /* -------------------------------------------- */ 00000050 7 | /* */ 00000060 8 | /* ************************************************************ */ 00000070 9 | 00000080 10 | P183_LES_UF_TRANS: 00000090 11 | PROC; 00000100 12 | 00000110 13 | %PAGE; 00000120 14 | %INCLUDE P0011831; /* TRANS_OMR (BASED) : UFS */ 00000130 15 | 00000140 16 | 00000150 17 | /* ************************************************************ */00000160 18 | /* FERDIG MED DEKLARASJONENE . */00000170 19 | /* LEGGER OPPLYSNINGENE INN I BLANKETTEN . */00000180 20 | /* ************************************************************ */00000190 21 | 00000200 22 | TRANS_OMR = '' ; 00000210 23 | W01.VIRK_DATO_ÅM = TRANHIST.VIRK_DATO_ÅM ; 00000220 24 | 00000230 25 | UFS.REGDATO = TRANHIST.REGDATO_ÅMD ; 00000240 26 | UFS.TERMID = TRANHIST.TERMID ; 00000250 27 | UFS.FNR = SEARCH_FNR ; 00000260 28 | UFS.UFT_MÅ = GRUNNBUF.UFT_MÅ ; 00000270 29 | 00000280 30 | 00000290 31 | SLUTT: 00000300 32 | 00000310 33 | END P183_LES_UF_TRANS; 00000320 34 | 00000330 35 | 00000340 36 | -------------------------------------------------------------------------------- /src/GML/R0016037.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 13/12-91 12.27.57 AV DYBVIK */00000000 2 | /*********************************************************************/00000010 3 | /* IDENTIFIKASJON: */00000020 4 | /* R0016037 - PLUKKET UT AV R0016022 (BEDRE OVERSIKT). BØ9112 */00000030 5 | /* HENSIKT: */00000040 6 | /* BEHANDLER OPPHØR I NEST-SISTE-STATUS */00000050 7 | /* PROGRAMTILKNYTNING: */00000060 8 | /* LOKAL PROSEDYRE I R0016001 */00000070 9 | /*********************************************************************/00000080 10 | DANN_TILGANG: PROC ; 00000090 11 | 00000100 12 | /* -------------------------------- */ 00000110 13 | /* TILGANG ETTER OPPHØR AV YTELSE */ 00000120 14 | /* -------------------------------- */ 00000130 15 | ALLOCATE X01; 00000140 16 | SAVE_B01_B02 = 1; 00000150 17 | X01.PERSON(I) = B01.PERSON(I); 00000160 18 | B01.PERSON(I) = ''; 00000170 19 | 00000180 20 | /* --------------------------------------------- */ 00000190 21 | /* NY STATUS ETTER YRKESSKADE-ENGANGSUTLØSNING */ 00000200 22 | /* SLÅR INN HER - DET SAMME GJELDER NY STATUS */ 00000210 23 | /* ETTER OPPHØRT UP/YP (O2-BL.?). */ 00000220 24 | /* FOR RIKTIG DANNING AV UPPER/YSKADE MÅ */ 00000230 25 | /* UFØRHIST OG YRKEHIST LIGGE I B01 */ 00000240 26 | /* --------------------------------------------- */ 00000250 27 | 00000260 28 | IF K > 0 ! K1 > 0 THEN 00000270 29 | DO; 00000280 30 | IF X01.PERSON(I).STATUS.STATUS_KODE_HIST = 'X' & 00000290 31 | (X01.PERSON(I).STATUS.PENSJONSTYPE1 = 'U' ! 00000300 32 | X01.PERSON(I).STATUS.PENSJONSTYPE1 = 'Y' ) THEN 00000310 33 | 00000320 34 | DO; 00000330 35 | DO IND = 1 TO 5; 00000340 36 | B01.PERSON(I).UFØRHIST(IND) = 00000350 37 | X01.PERSON(I).UFØRHIST(IND); 00000360 38 | B01.PERSON(I).YRKEHIST(IND) = 00000370 39 | X01.PERSON(I).YRKEHIST(IND); 00000380 40 | END; 00000390 41 | END; 00000400 42 | END; 00000410 43 | 00000420 44 | END DANN_TILGANG ; 00000430 45 | -------------------------------------------------------------------------------- /src/GML/R0016051.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 13/12-91 12.33.35 AV DYBVIK */00000000 2 | /*********************************************************************/00000010 3 | /* IDENTIFIKASJON: */00000020 4 | /* R0016051 - R0016021 (PROC-SAMLING) DELT OPP. BØ9112 */00000030 5 | /* HENSIKT: */00000040 6 | /* EN PROGRAMMERT FUNKSJON SOM REGNER UT EN PERSONS ALDER */00000050 7 | /* PROGRAMTILKNYTNING: */00000060 8 | /* LOKAL PROSEDYRE I R0016001 */00000070 9 | /* BRUK: */00000080 10 | /* W_FELT = ALDER (FNR, TIDSPUNKT_AAMM) */00000090 11 | /*********************************************************************/00000100 12 | 00000110 13 | ALDER: PROC (FNR,PR_TIDSPKT) RETURNS (PIC '999') OPTIONS(REENTRANT); 00000120 14 | 00000130 15 | /*----------------------------------------------------------------*/00000140 16 | /* */00000150 17 | /* FUNKSJONEN TAR FØDSELSNUMMER OG EN AKTUELL MÅNED ANGITT PÅ */00000160 18 | /* FORMEN ÅÅMM (F.EKS: MAI 1982 = 8205) OG PRODUSERER PERSONENS */00000170 19 | /* ALDER VED TIDSPUNKT PR_MÅNED. */00000180 20 | /* */00000190 21 | /*----------------------------------------------------------------*/00000200 22 | 00000210 23 | DCL FNR PIC '(11)9', 00000220 24 | MND PIC '99' DEF FNR POS(3), 00000230 25 | ÅR PIC '99' DEF FNR POS(5), 00000240 26 | LØPENR PIC '999' DEF FNR POS(7); 00000250 27 | DCL PR_TIDSPKT PIC '9999', 00000260 28 | PR_ÅR PIC '99' DEF PR_TIDSPKT POS(1), 00000270 29 | PR_MND PIC '99' DEF PR_TIDSPKT POS(3); 00000280 30 | DCL HJELP PIC 'S(6)9' STATIC; 00000290 31 | DCL SVAR PIC '999' STATIC; 00000300 32 | 00000310 33 | HJELP = ÅR * 12 + MND; 00000320 34 | HJELP = PR_ÅR * 12 + PR_MND - HJELP; 00000330 35 | 00000340 36 | /* TEST OM NOEN ER OVER 100 ÅR */ 00000350 37 | 00000360 38 | IF LØPENR >= 500 & LØPENR <= 749 THEN 00000370 39 | HJELP = HJELP + 1200; /* 100 ÅR A 12 MÅNEDER */ 00000380 40 | 00000390 41 | IF HJELP < 0 THEN HJELP = HJELP + 100 * 12; 00000400 42 | SVAR = HJELP / 12; /* SKAL VÆRE HELTALLSDIVISJON */ 00000410 43 | RETURN(SVAR); 00000420 44 | END ALDER; 00000430 45 | 00000440 46 | -------------------------------------------------------------------------------- /src/GML/R0016052.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 13/12-91 12.33.51 AV DYBVIK */00000000 2 | /*********************************************************************/00000010 3 | /* IDENTIFIKASJON: */00000020 4 | /* R0016052 - R0016021 (PROC-SAMLING) DELT OPP. BØ9112 */00000030 5 | /* HENSIKT: */00000040 6 | /* EN PROGRAMMERT FUNKSJON SOM REGNER UT "ARVETE" DATA */00000050 7 | /* PROGRAMTILKNYTNING: */00000060 8 | /* LOKAL PROSEDYRE I R0016001 */00000070 9 | /* BRUK: */00000080 10 | /* W_FELT = MAGIC (FNR, SPT, OPT, PÅ) */00000090 11 | /* */00000100 12 | /*BØ9201-KOMM: */00000110 13 | /* FRA 1992 KOMMER OGSÅ POENG-ÅR SOM SKAL GI 42% TILLEGGS-PENSJON.*/00000120 14 | /* DERMED VIL FUNKSJONEN UTEN ENDRING KUNNE VIRKE UNØYAKTIG, MEN */00000130 15 | /* DETTE LAR VI INNTIL VIDERE VÆRE SOM DET ER. JFR. 2BS V/PBK. */00000140 16 | /*********************************************************************/00000150 17 | 00000160 18 | F_MAGIC: PROC (FNR,SPT,OPT,PÅ) RETURNS (FIXED DEC (10,5)); 00000170 19 | 00000180 20 | /*----------------------------------------------------------------*/00000190 21 | /* MAGIC REGNER PÅ FØLGENDE OPPLYSNINGER : */00000200 22 | /* SPT SLUTTPOENGTALL */00000210 23 | /* OPT OVERKOMP. SLUTTPOENGTALL */00000220 24 | /* PÅ POENGÅR */00000230 25 | /* OG GIR ET 'MAGISK' TALL. DETTE TALLET AVGJØR OM FORELDRELØSE */00000240 26 | /* BARN SKAL HA MOR ELLER FAR'S SPT-, OPT- OG PÅ-VERDIER */00000250 27 | /* I ETTERL-SEGMENTET FOR AVDØDE-OPPLYSNINGER. */00000260 28 | /* */00000270 29 | /*----------------------------------------------------------------*/00000280 30 | 00000290 31 | DCL FNR FIXED DEC (11); 00000300 32 | DCL (SPT,OPT) FIXED DEC (3,2); 00000310 33 | DCL PÅ FIXED DEC (3); 00000320 34 | DCL PNR PIC '(11)9', 00000330 35 | ÅR PIC '99' DEF PNR POS(5); 00000340 36 | DCL SVAR FIXED DEC (10,5) STATIC; 00000350 37 | 00000360 38 | PNR = FNR; 00000370 39 | SELECT; 00000380 40 | WHEN (ÅR < 18) SVAR = OPT*PÅ/20 + SPT*PÅ/40; 00000390 41 | WHEN (ÅR > 36) SVAR = SPT*PÅ/40; 00000400 42 | OTHERWISE SVAR = OPT*PÅ/(ÅR+3) + SPT*PÅ/40; 00000410 43 | END; /* OF SELECT */ 00000420 44 | RETURN (SVAR); 00000430 45 | END; /* OF F_MAGIC */ 00000440 46 | 00000450 47 | -------------------------------------------------------------------------------- /src/GML/R0017414.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 08/10-82 14.05.46 AV LUNDEBY */00000000 2 | /* SIST ENDRET 20/09-82 11.31.34 AV OLSEN */00000010 3 | /* SIST ENDRET 10/09-82 12.17.16 AV HELEN */00000020 4 | /* SIST ENDRET 09/09-82 14.30.20 AV HELEN */00000030 5 | /* *************************************************************** */ 00000040 6 | /* IDENTIFIKASJON: R0017414 */ 00000050 7 | /* PROGRAMMERER: HELEN JULI, 1982 */ 00000060 8 | /* HENSIKT: */ 00000070 9 | /* LEGGER INFORMASJON FRA B02 OVER I ET HENDELSE-SEGMENT */ 00000080 10 | /* I STØNADSBREV-BASEN . PROGRAMMET KALLES OPP ETTER */ 00000090 11 | /* HVER AJOURFØRT TRANSAKSJON. */ 00000100 12 | /* PROGRAMTILKNYTNING: */ 00000110 13 | /* PROGRAMMET INKLUDERES I R0017201 */ 00000120 14 | /* (LAG_SB_GRUNNLAG_IKKE_BARN) */ 00000130 15 | /* *************************************************************** */ 00000140 16 | LAG_ETTERL_FAM_HEND: 00000150 17 | PROC(IND); 00000160 18 | DCL IND FIXED BIN (15); 00000170 19 | /* *************************************************************** */ 00000180 20 | /* PROGRAMMET BEGYNNER HER. VI BLANKER W_HENDELSE. */ 00000190 21 | /* *************************************************************** */ 00000200 22 | W_HENDELSE = ''; 00000210 23 | W_HENDELSE.HENDDATO = B02.PERSON.STATUS.VIRK_DATO_ÅM(IND); 00000220 24 | W_HENDELSE.VERSJON = W_ROT.NESTE_SB_VERSJON_NR; 00000230 25 | W_HENDELSE.TERMINAL = EIBLK.EIBTRMID; 00000240 26 | W_HENDELSE.GP_BRUTTO = B02.PERSON.ETTEPENS.GP_BRUTTO(IND); 00000250 27 | W_HENDELSE.GP_NETTO = B02.PERSON.ETTEPENS.GP_NETTO(IND); 00000260 28 | W_HENDELSE.ST = B02.PERSON.ETTEPENS.ST(IND); 00000270 29 | W_HENDELSE.KT = B02.PERSON.ETTEPENS.KT(IND); 00000280 30 | W_HENDELSE.TT = B02.PERSON.STATUS.TT_ANV(IND); 00000290 31 | CALL PLASSER_TEKSTTYPE_A_KODE; 00000300 32 | /* CALL PLASSER_TEKSTYPE_B1_KODE */ 00000310 33 | W_HENDELSE.TEKSTYPE_B1_KODE = 9; 00000320 34 | /* CALL PLASSER_TEKSTYPE_B2_KODE */ 00000330 35 | W_HENDELSE.TEKSTYPE_B2_KODE = 9; 00000340 36 | /* CALL PLASSER_TEKSTYPE_C_KODE */ 00000350 37 | W_HENDELSE.TEKSTYPE_C_KODE = 9; 00000360 38 | /* **************************************************************** */ 00000370 39 | /* HENDELSE SEGMENT SKRIVES UT. */ 00000380 40 | /* **************************************************************** */ 00000390 41 | CALL INSERT_HENDELSE; 00000400 42 | /* IF W_HENDELSE.TP_NETTO > 0 THEN */ 00000410 43 | /* CALL BYGG_OPP_BEREGNINGS_VEDLEGG_SEGMENT */ 00000420 44 | END LAG_ETTERL_FAM_HEND; 00000430 45 | -------------------------------------------------------------------------------- /src/GML/R0019023.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 29/11-82 12.33.35 AV GRAESMO */00000000 2 | 00000010 3 | /* **************************************************************** */ 00000020 4 | /* IDENTIFIKASJON: R0019023 */ 00000030 5 | /* PROGRAMMERER : GRÆSMO NOVEMBER 1982 */ 00000040 6 | /* HENSIKT: */ 00000050 7 | /* STYRER UTSKRIFT AV FEILLISTE FOR UTSKRIFT AV */ 00000060 8 | /* STØNADSPAKKEN. GJELDER BÅDE DATABASEFEIL OG ANDRE TYPER */ 00000070 9 | /* FEIL. */ 00000080 10 | /* PROGRAM TILKNYTNING: */ 00000090 11 | /* PROGRAM INCLUDES I R0019001(REDIGERING_AV_STØNADSPAKKE) */ 00000100 12 | /* */ 00000110 13 | /* */ 00000120 14 | /* **************************************************************** */ 00000130 15 | 00000140 16 | SKRIV_FEILLISTE: 00000150 17 | PROC; 00000160 18 | 00000170 19 | /* ************************************************************* */ 00000180 20 | /* SKRIVE-RUTINE FOR FEILLISTE */ 00000190 21 | /* ************************************************************* */ 00000200 22 | 00000210 23 | IF ( FE_TELLER > 40 ) ! ( FE_TELLER < 1 ) THEN 00000220 24 | DO; 00000230 25 | FEILLISTE_LINJE = FEH1_HEADING_D; 00000240 26 | WRITE FILE(FEIL) FROM (FEILLISTE_SKRIVELINJE); 00000250 27 | FEILLISTE_LINJE = FEH2_HEADING_D; 00000260 28 | WRITE FILE(FEIL) FROM (FEILLISTE_SKRIVELINJE); 00000270 29 | FEILLISTE_LINJE = FEH3_HEADING_D; 00000280 30 | WRITE FILE(FEIL) FROM (FEILLISTE_SKRIVELINJE); 00000290 31 | FE_SIDE = FE_SIDE + 1; 00000300 32 | FE_TELLER = 1; 00000310 33 | END; 00000320 34 | FEILLISTE_LINJE = FEILTYPE_LINJE_D; 00000330 35 | WRITE FILE(FEIL) FROM (FEILLISTE_SKRIVELINJE); 00000340 36 | FE_TELLER = FE_TELLER + 1; 00000350 37 | 00000360 38 | END SKRIV_FEILLISTE; 00000370 39 | -------------------------------------------------------------------------------- /src/GML/R0019054.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 28/12-82 15.21.11 AV GRAESMO */00000000 2 | 00000010 3 | /* **************************************************************** */ 00000020 4 | /* IDENTIFIKASJON: R0019054 */ 00000030 5 | /* PROGRAMMERER : GRÆSMO DESEMBER 1982 */ 00000040 6 | /* HENSIKT: */ 00000050 7 | /* BESTEMMER HVILKEN O_TEKST SOM SKAL SKRIVES PÅ STØNADS- */ 00000060 8 | /* BREVET OG HVILE VARIABLE SOM SKAL INNSKYTES PÅ SKRIVELINJA*/ 00000070 9 | /* GJELDER -TEKSTBASE. */ 00000080 10 | /* PROGRAM TILKNYTNING: */ 00000090 11 | /* PROGRAM INCLUDES I R0019001(REDIGERING_AV_STØNADSPAKKE) */ 00000100 12 | /* */ 00000110 13 | /* */ 00000120 14 | /* **************************************************************** */ 00000130 15 | 00000140 16 | BESTEMME_O_TEKST: 00000150 17 | PROC; 00000160 18 | 00000170 19 | /* ************************************************************* */ 00000180 20 | /* */ 00000190 21 | /* BESTEMMER OG STYRER UTSKRIFT AV O ---TEKSTER */ 00000200 22 | /* */ 00000210 23 | /* ************************************************************* */ 00000220 24 | 00000230 25 | IF TXT_KEY.KEY > '0000' THEN 00000240 26 | DO; 00000250 27 | STCX_TEKST = ''; 00000260 28 | FELLES_LINJE = STCX_LINJE_D; 00000270 29 | CALL SKRIV_STØNADSBREV; /* R0019051 */ 00000280 30 | END; 00000290 31 | 00000300 32 | TXT_KEY.KEY = OM_TEKSTTYPE_O_KODE(OM_TELLER); 00000310 33 | 00000320 34 | CALL SUBSTITUTE_TEKST; /* R0019061 */ 00000330 35 | 00000340 36 | END BESTEMME_O_TEKST; 00000350 37 | -------------------------------------------------------------------------------- /src/GML/R0019056.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 03/11-92 14.35.25 AV DYBVIK */00000000 2 | /* SIST ENDRET 14/04-89 13.57.04 AV HERMAN */00000010 3 | /* SIST ENDRET 18/11-83 13.24.13 AV GRAESMO */00000020 4 | /* **************************************************************** */ 00000030 5 | /* IDENTIFIKASJON: R0019056 */ 00000040 6 | /* PROGRAMMERER : GRÆSMO DESEMBER 1982 */ 00000050 7 | /* HENSIKT: */ 00000060 8 | /* BESTEMMER HVILKEN E_TEKST SOM SKAL SKRIVES PÅ STØNADS- */ 00000070 9 | /* BREVET OG HVILE VARIABLE SOM SKAL INNSKYTES PÅ SKRIVELINJA*/ 00000080 10 | /* GJELDER -TEKSTBASE. */ 00000090 11 | /* PROGRAM TILKNYTNING: */ 00000100 12 | /* PROGRAM INCLUDES I R0019001(REDIGERING_AV_STØNADSPAKKE) */ 00000110 13 | /* */ 00000120 14 | /* */ 00000130 15 | /* **************************************************************** */ 00000140 16 | 00000150 17 | BESTEMME_E_TEKST: 00000160 18 | PROC; 00000170 19 | 00000180 20 | /* ************************************************************* */ 00000190 21 | /* */ 00000200 22 | /* BESTEMMER OG STYRER UTSKRIFT AV E ---TEKSTER */ 00000210 23 | /* */ 00000220 24 | /* ************************************************************* */ 00000230 25 | 00000240 26 | STCX_TEKST = ''; 00000250 27 | FELLES_LINJE = STCX_LINJE_D; 00000260 28 | CALL SKRIV_STØNADSBREV; /* R0019051 */ 00000270 29 | 00000280 30 | IF AKT_HENDELSE.PENSJONSTYPE1 = 'K' THEN 00000290 31 | TXT_KEY.KEY = 'E003'; /* AFP-TILL JD 10.92*/ 00000300 32 | ELSE 00000310 33 | IF AKT_HENDELSE.PENSJONSTYPE2 ^= 'O' THEN 00000320 34 | TXT_KEY.KEY = 'E001'; 00000330 35 | ELSE 00000340 36 | TXT_KEY.KEY = 'E002'; 00000350 37 | 00000360 38 | CALL SUBSTITUTE_TEKST; /* R0019061 */ 00000370 39 | 00000380 40 | END BESTEMME_E_TEKST; 00000390 41 | -------------------------------------------------------------------------------- /src/GML/R0019072.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 19/07-83 17.02.27 AV GRAESMO */00000000 2 | /* SIST ENDRET 11/01-83 14.09.48 AV GRAESMO */00000010 3 | 00000020 4 | /* **************************************************************** */ 00000030 5 | /* IDENTIFIKASJON: R0019072 */ 00000040 6 | /* PROGRAMMERER : GRÆSMO JANUAR 1983 */ 00000050 7 | /* HENSIKT: */ 00000060 8 | /* REGNER UT BESTEMTE DATOER HVOR GITT PERSON VIL NÅ */ 00000070 9 | /* ALDERSGRENSER SOM HAR BETYDNING FOR TILSTÅELSE AV */ 00000080 10 | /* PENSJON. */ 00000090 11 | /* PROGRAM TILKNYTNING: */ 00000100 12 | /* PROGRAM INCLUDES I R0019001(REDIGERING_AV_STØNADSPAKKE) */ 00000110 13 | /* */ 00000120 14 | /* */ 00000130 15 | /* **************************************************************** */ 00000140 16 | 00000150 17 | BESTEMME_GITT_ALDER: 00000160 18 | PROC; 00000170 19 | 00000180 20 | /******************************************************************/00000190 21 | /* */00000200 22 | /* ALDER KAN VÆRE 18, 20, 67 ELLER 70 ÅR */00000210 23 | /* */00000220 24 | /******************************************************************/00000230 25 | FYLLER_ÅR_FNR_D = W_ROT.FNR; 00000240 26 | FYLLER_18ÅR = DDMMAA + 18; 00000250 27 | FYLLER_20ÅR = DDMMAA + 20; 00000260 28 | FYLLER_67ÅR = DDMMAA + 67; 00000270 29 | FYLLER_70ÅR = DDMMAA + 70; 00000280 30 | DATO_PIC1 = SUBSTR(DATO_D,3,4); 00000290 31 | AL_IND1 = BG_TELLER; 00000300 32 | DO WHILE ( AL_IND1 > 0 ); 00000310 33 | 00000320 34 | IF (PO_POENG_KODE(AL_IND1) = 'U057') ! 00000330 35 | (PO_POENG_KODE(AL_IND1) = 'U058') THEN 00000340 36 | DO; 00000350 37 | FYLLER_XXÅR = DATO_PIC3 - (PO_ÅR(AL_IND1)+1900); 00000360 38 | END; 00000370 39 | AL_IND1 = AL_IND1 - 1; 00000380 40 | END; 00000390 41 | 00000400 42 | END BESTEMME_GITT_ALDER; 00000410 43 | -------------------------------------------------------------------------------- /src/GML/R0019901.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 28/09-82 07.20.41 AV FARVIK */00000000 2 | /* SIST ENDRET 17/08-82 17.05.17 AV PERB */00000010 3 | /* ***************************************************************** */00000020 4 | /*IDENTIFIKASJON */00000030 5 | /* R0019901 FUNKSJON PLI */00000040 6 | /* PROGRAMMERT AV JAN I MARS 1981 */00000050 7 | /*HENSIKT */00000060 8 | /* TESTE GYLDIG DATO */00000070 9 | /* PARAMETER: INN: DATO_MÅ */00000080 10 | /* RETUR: '1'B - GYLDIG DATO */00000090 11 | /* '0'B _ UGYLDIG DATO */00000100 12 | /* ***************************************************************** */00000110 13 | %SKIP(2); 00000120 14 | F_GYLDIG_DATO: 00000130 15 | PROC (DATO_MÅ) RETURNS(BIT (1)); 00000140 16 | DCL 00000150 17 | DATO_MÅ PIC '9999'; 00000160 18 | DCL 00000170 19 | 1 DATO_MÅ1 DEF DATO_MÅ, 00000180 20 | 2 MND PIC '99', 00000190 21 | 2 ÅR PIC '99'; 00000200 22 | DCL 00000210 23 | KODE BIT (1); 00000220 24 | IF (MND > 00 & MND < 13 & ÅR > 66) ! (MND = 12 & ÅR = 66) THEN 00000230 25 | KODE = '1'B; 00000240 26 | ELSE 00000250 27 | KODE = '0'B; 00000260 28 | RETURN (KODE); 00000270 29 | END F_GYLDIG_DATO; 00000280 30 | -------------------------------------------------------------------------------- /src/GML/R0019902.pli: -------------------------------------------------------------------------------- 1 | %PAGE; 00000010 2 | /* ***************************************************************** */00000020 3 | /* */00000030 4 | /* MODULEN FINNER KJØNN. /* PARAMETER: INN: FØDSELSNUMMER */00000040 5 | /* RETUR: 'M' - HANKJØNN */00000050 6 | /* 'K' - HUNKJØNN */00000060 7 | /* */00000070 8 | /* ***************************************************************** */00000080 9 | %SKIP(2); 00000090 10 | F_KJØNN: 00000100 11 | PROC (FNR) RETURNS (CHAR(1)); 00000110 12 | DCL 00000120 13 | FNR PIC '(11)9'; 00000130 14 | DCL 00000140 15 | KJØNN CHAR(1); 00000150 16 | DCL 00000160 17 | FNR_IND_SIF DEF FNR POS (9) PIC '9'; 00000170 18 | %SKIP(2); 00000180 19 | IF VERIFY(FNR_IND_SIF,'02468') = 0 THEN 00000190 20 | KJØNN = 'K'; 00000200 21 | ELSE 00000210 22 | KJØNN = 'M'; 00000220 23 | RETURN (KJØNN); 00000230 24 | END F_KJØNN; 00000240 25 | -------------------------------------------------------------------------------- /src/GML/R0019908.pli: -------------------------------------------------------------------------------- 1 | F_DAGS_DATO_PLUSS1_ÅM: 00000010 2 | PROC RETURNS(PIC'9999'); 00000020 3 | %SKIP(2); /* */ 00000030 4 | /* */ 00000040 5 | /* ***************************************************************** */00000050 6 | /* */00000060 7 | /* HENTER INN DAGENS DATO OG RETURNERER DATAOEN TILLAGT 1 MÅNED */00000070 8 | /* */00000080 9 | /* ***************************************************************** */00000090 10 | %SKIP(2); 00000100 11 | DCL 00000110 12 | DATE BUILTIN; 00000120 13 | DCL 00000130 14 | DATO_ÅMD CHAR (6), 00000140 15 | DAGENS_DATO_ÅM DEF DATO_ÅMD POS(1) PIC '9999'; 00000150 16 | DCL 00000160 17 | DAGENS_DATO_1MND PIC'9999', 00000170 18 | DAGENS_DATO_Å DEF DAGENS_DATO_1MND POS(1) PIC'99', 00000180 19 | DAGENS_DATO_M DEF DAGENS_DATO_1MND POS(3) PIC'99'; 00000190 20 | %SKIP(2); 00000200 21 | DATO_ÅMD = DATE; 00000210 22 | DAGENS_DATO_1MND = DAGENS_DATO_ÅM; 00000220 23 | DAGENS_DATO_M = DAGENS_DATO_M + 1; 00000230 24 | IF DAGENS_DATO_M > 12 THEN 00000240 25 | DO; 00000250 26 | DAGENS_DATO_Å = DAGENS_DATO_Å + 1; 00000260 27 | DAGENS_DATO_M = DAGENS_DATO_M - 12; 00000270 28 | END; 00000280 29 | RETURN(DAGENS_DATO_1MND); 00000290 30 | END F_DAGS_DATO_PLUSS1_ÅM; 00000300 31 | -------------------------------------------------------------------------------- /src/GML/R0019910.pli: -------------------------------------------------------------------------------- 1 | /* **************************************************************** */ R0000010 2 | /*IDENTIFIKASJON: */ R0000020 3 | /* R0019910 - PROCEDYRE I PLI */ R0000030 4 | /* PROGRAMMERER: JAN-H. KRISTENSEN ,MAI 1981 */ R0000040 5 | /*HENSIKT: */ R0000050 6 | /* PROSEDYREN KONTROLLERER OM ET OVERFØRT CHAR-FELT ER NUMERISK. */ R0000060 7 | /* DERSOM FELTET ER NUMERISK RETURNERES '1'B, HVIS IKKE '0'B. */ R0000070 8 | /*PARAMETER INN: */ R0000080 9 | /* NUMFELT. */ R0000090 10 | /*PARAMETER UT: */ R0000100 11 | /* RETUR. */ R0000110 12 | /*BRUK: */ R0000120 13 | /* IF ^F_NUMERISK(FELT) THEN (SKRIV FEILMELDING). */ R0000130 14 | /* **************************************************************** */ R0000140 15 | F_NUMERISK: R0000150 16 | PROC(NUMFELT) RETURNS (BIT(1)); R0000160 17 | DCL NUMFELT CHAR(*), R0000170 18 | RETUR BIT(1) INIT('1'B); R0000180 19 | IF VERIFY(NUMFELT,'0123456789') > 0 THEN R0000190 20 | RETUR = '0'B; R0000200 21 | RETURN(RETUR); R0000210 22 | END F_NUMERISK; R0000220 23 | -------------------------------------------------------------------------------- /src/GML/R0019913.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 22/12-88 09.55.22 AV DYBVIK */00000000 2 | /* ***************************************************************** */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0019913 - FUNKSJON I PLI */00000030 5 | /* PROGRAMMERER - P. BERGESTAD */00000040 6 | /*HENSIKT: */00000050 7 | /* PROSEDYREN SNUR DATOER FRA MMÅÅ TIL ÅÅMM */00000060 8 | /*BRUK: */00000070 9 | /* = F_SNU_DATO(PARAMETER) */00000080 10 | /* ***************************************************************** */00000090 11 | F_SNU_DATO: 00000100 12 | PROC(INN_DATO) RETURNS(PIC'9999'); 00000110 13 | DCL 00000120 14 | INN_DATO PIC'9999', 00000130 15 | UT_DATO PIC'9999', 00000140 16 | W_INN_DATO_M DEF INN_DATO POS(1) PIC'99', 00000150 17 | W_INN_DATO_Å DEF INN_DATO POS(3) PIC'99'; 00000160 18 | /* */00000170 19 | /* */00000180 20 | UT_DATO = W_INN_DATO_Å * 100 + W_INN_DATO_M; 00000190 21 | /* */00000200 22 | RETURN(UT_DATO); 00000210 23 | END F_SNU_DATO; 00000220 24 | -------------------------------------------------------------------------------- /src/GML/R0019923.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 11/07-91 14.23.20 AV DYBVIK */00000000 2 | /* SIST ENDRET 04/01-91 08.43.04 AV DYBVIK */00000010 3 | /* SIST ENDRET 28/09-82 12.25.08 AV FARVIK */00000020 4 | /* *************************************************************** */ 00000030 5 | /*IDENTIFIKASJON: */ 00000040 6 | /* R0019923 - PROSEDYRE I PLI */ 00000050 7 | /* PROGRAMMERER: GEIR, OKTOBER 1981 */ 00000060 8 | /*HENSIKT: */ 00000070 9 | /* PROSEDYREN OPPRETTER PENSJONSSTATUS FOR FORSØRGET BARN OG */ 00000080 10 | /* INCLUDES I 0520,0620,1220 */ 00000090 11 | /*BRUK: */ 00000100 12 | /* CALL OPPRETT_STATUS_FORS_BARN(IND1,IND2) */ 00000110 13 | /* */ 00000120 14 | /* *************************************************************** */ 00000130 15 | % SKIP(1); 00000140 16 | OPPRETT_STATUS_FORS_BARN: 00000150 17 | PROC(IND1,IND2); 00000160 18 | DCL 00000170 19 | IND1 FIXED BIN (15), 00000180 20 | IND2 FIXED BIN (15); 00000190 21 | %SKIP; 00000200 22 | B02.PENSJONSTYPE1(IND1) = 'L'; 00000210 23 | B02.STATUS.SIVILSTAND(IND1) = 'U'; 00000220 24 | B02.STATUS.VIRK_DATO_ÅM(IND1) = 00000230 25 | F_SNU_DATO(TRANS_OMR.VIRK_DATO_MÅ); 00000240 26 | IF B02.STATUS.VIRK_DATO_ÅM(IND1) < 9100 THEN 00000250 27 | /*HL*/ B02.PENSJONSRETT_FØR_91(IND1) = 'J'; 00000260 28 | ELSE 00000270 29 | IF B02.STATUS.VIRK_DATO_ÅM(IND1) < 9105 THEN 00000280 30 | /*HL*/ B02.PENSJONSRETT_FØR_91(IND1) = 'X'; 00000290 31 | B02.FØRSTE_GANG_REG(IND1) = B02. 00000300 32 | FØRSTE_GANG_REG(IND2); 00000310 33 | END OPPRETT_STATUS_FORS_BARN; 00000320 34 | -------------------------------------------------------------------------------- /src/GML/R0019933.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 27/04-83 12.31.42 AV FARVIK */00000000 2 | /* SIST ENDRET 17/12-82 10.20.54 AV FARVIK */00000010 3 | /* ***************************************************************** */00000020 4 | /* IDENTIFIKASJON: */00000030 5 | /* R0019933 - PROSEDYRE I PLI */00000040 6 | /* PROGRAMMERER: JAN, MARS 1982 */00000050 7 | /* HENSIKT: */00000060 8 | /* TILKNYTNINGSSEGMENT TIL FORSØRGEREN OPPDATERES */00000070 9 | /* PROGRAMTILKNYTNING: */00000080 10 | /* KALLES OPP AV PROGRAM R0011720 */00000090 11 | /* BRUK: */00000100 12 | /* FORSØRGTILLEGG_BARN_OPPHØRER(IND1,IND2) */00000110 13 | /* ***************************************************************** */00000120 14 | %SKIP; 00000130 15 | FORSØRGTILLEGG_BARN_OPPHØRER: 00000140 16 | PROC(IND1,IND2); 00000150 17 | %SKIP; 00000160 18 | 00000170 19 | /* ***************************************************************** */00000180 20 | /* DEKLARASJONER */00000190 21 | /* ***************************************************************** */00000200 22 | 00000210 23 | DCL 00000220 24 | IND1 FIXED BIN(15), 00000230 25 | IND2 FIXED BIN(15); 00000240 26 | %SKIP; 00000250 27 | 00000260 28 | /* ***************************************************************** */00000270 29 | /* TILKNYTNINGSSEGMENTET SLETTES OG ANTALL BARN REDUSERES MED 1 */00000280 30 | /* ***************************************************************** */00000290 31 | 00000300 32 | CALL OPPHØR_KOBLING_TO_PERSONER(IND1,IND2); 00000310 33 | B02.ANTALL_BARN(IND1) = B02.ANTALL_BARN(IND1) - 1; 00000320 34 | B02.STATUS_KODE_HIST(IND1) = 'O'; 00000330 35 | B02.VIRK_DATO_ÅM(IND1) = HJ_VIRK_DATO_ÅM; 00000340 36 | 00000350 37 | END FORSØRGTILLEGG_BARN_OPPHØRER; 00000360 38 | -------------------------------------------------------------------------------- /src/GML/R0019942.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 28/09-82 07.26.11 AV FARVIK */00000000 2 | /* SIST ENDRET 03/09-82 08.59.25 AV PERB */00000010 3 | /* ***************************************************************** */00000020 4 | /*IDENTIFIKASJON: */00000030 5 | /* R0019942 - FUNKSJON I PLI */00000040 6 | /* PROGRAMMERER - P. BERGESTAD, MARS 1982 */00000050 7 | /*HENSIKT: */00000060 8 | /* SNUR DATO FRA DDMMÅÅ TIL ÅÅMMDD */00000070 9 | /*BRUK: */00000080 10 | /* = F_SNU_DØDSDATO(PARAMETER); */00000090 11 | /* ***************************************************************** */00000100 12 | F_SNU_DØDSDATO: 00000110 13 | PROC(INN_DATO) RETURNS(PIC'(6)9'); 00000120 14 | DCL 00000130 15 | INN_DATO PIC'(6)9', 00000140 16 | UT_DATO PIC'(6)9', 00000150 17 | W_INN_DATO_D DEF INN_DATO POS(1) PIC'99', 00000160 18 | W_INN_DATO_M DEF INN_DATO POS(3) PIC'99', 00000170 19 | W_INN_DATO_Å DEF INN_DATO POS(5) PIC'99'; 00000180 20 | 00000190 21 | /* */00000200 22 | /* */00000210 23 | UT_DATO = 00000220 24 | W_INN_DATO_Å * 10000 + (W_INN_DATO_M * 100 + W_INN_DATO_D);00000230 25 | /* */00000240 26 | /* */00000250 27 | RETURN(UT_DATO); 00000260 28 | END F_SNU_DØDSDATO; 00000270 29 | -------------------------------------------------------------------------------- /src/GML/R0019943.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 28/09-82 07.24.52 AV FARVIK */00000000 2 | F_SEKSTISJU_ÅR: 00000010 3 | PROC(FNR) RETURNS(PIC'(4)9'); 00000020 4 | DCL 00000030 5 | FNR PIC'(11)9'; 00000040 6 | DCL 00000050 7 | FYLT_SEKSTISJU PIC'(4)9'; 00000060 8 | DCL 00000070 9 | 1 FØDSELSNUMMER DEF FNR, 00000080 10 | 2 DAG PIC'99', 00000090 11 | 2 MND PIC'99', 00000100 12 | 2 AAR PIC'99', 00000110 13 | 2 PERSNR, 00000120 14 | 3 ÅRHUNDRE PIC'999', 00000130 15 | 3 REST PIC'99'; 00000140 16 | IF AAR >= 33 THEN 00000150 17 | FYLT_SEKSTISJU = (((AAR + 67) - 100 ) * 100) + MND; 00000160 18 | ELSE 00000170 19 | FYLT_SEKSTISJU = ((AAR + 67) * 100) + MND; 00000180 20 | RETURN(FYLT_SEKSTISJU); 00000190 21 | END F_SEKSTISJU_ÅR; 00000200 22 | -------------------------------------------------------------------------------- /src/GML/R0019948.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 17/11-82 11.47.29 AV GRAESMO */00000000 2 | /* SIST ENDRET 10/11-82 10.10.44 AV GRAESMO */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0019948 PLI */00000030 5 | /* PROC ER LAGET I NOVEMBER 1982 AV GRÆSMO. */00000040 6 | /*HENSIKT: */00000050 7 | /* BLANKER FØRSTE FOREKOMST AV NULLER I PARAMETERGITT FELT */00000060 8 | /* ELLER LINJE. */00000070 9 | /*BRUKES: */00000080 10 | /* CALL BLANK_LEDENDE_NULL(FELT) */00000090 11 | /*PARAMETRE INN: */00000100 12 | /* 1 FELTET ELLER LINJEN SOM SKAL BLANKES LEDENDE NULL */00000110 13 | /*PARAMETRE UT : */00000120 14 | /* INGEN */00000130 15 | /* ***************************************************************** */00000140 16 | %PAGE; /* */ 00000150 17 | BLANK_LEDENDE_NULL: 00000160 18 | PROC (A); 00000170 19 | 00000180 20 | /* ************************************************************* */ 00000190 21 | /* */ 00000200 22 | /* BLANKER LEDENDE NULLER */ 00000210 23 | /* */ 00000220 24 | /* ************************************************************* */ 00000230 25 | 00000240 26 | DCL A CHAR (*); 00000250 27 | STOP = '0'B; 00000260 28 | DO I = 1 TO (LENGTH(A)-1) UNTIL (STOP); 00000270 29 | IF SUBSTR(A,I,1) = '0' THEN 00000280 30 | SUBSTR(A,I,1) = ''; 00000290 31 | ELSE STOP = '1'B; 00000300 32 | END; 00000310 33 | END BLANK_LEDENDE_NULL; 00000320 34 | 00000330 35 | -------------------------------------------------------------------------------- /src/GML/R0019960.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 13/05-88 08.21.01 AV DYBVIK */00000000 2 | /* SIST ENDRET 11/11-86 11.31.32 AV DYBVIK */00000010 3 | F_CICSINFO: 00000020 4 | PROC (CICS_INDEKS) RETURNS (CHAR(16)) ; 00000030 5 | 00000040 6 | DCL CICS_INDEKS CHAR(02) , 00000050 7 | CICS_INFORM CHAR(16) ; 00000060 8 | 00000070 9 | 00000080 10 | SELECT (CICS_INDEKS); 00000090 11 | 00000100 12 | WHEN('PA') 00000110 13 | CICS_INFORM = '----- AUTO -----' ; 00000120 14 | 00000130 15 | WHEN('PG') 00000140 16 | CICS_INFORM = '----- GFNR -----' ; 00000150 17 | 00000160 18 | WHEN('T ') 00000170 19 | CICS_INFORM = 'CICSTEST -------' ; 00000180 20 | 00000190 21 | WHEN('TA') 00000200 22 | CICS_INFORM = 'CICSTEST - AUTO ' ; 00000210 23 | 00000220 24 | WHEN('TG') 00000230 25 | CICS_INFORM = 'CICSTEST - GFNR ' ; 00000240 26 | 00000250 27 | WHEN('R ') 00000260 28 | CICS_INFORM = 'RTGCICS2 -------' ; 00000270 29 | 00000280 30 | WHEN('RA') 00000290 31 | CICS_INFORM = 'RTGCICS2 - AUTO ' ; 00000300 32 | 00000310 33 | WHEN('RG') 00000320 34 | CICS_INFORM = 'RTGCICS2 - GFNR ' ; 00000330 35 | 00000340 36 | OTHERWISE 00000350 37 | CICS_INFORM = '----------------' ; 00000360 38 | 00000370 39 | END ; /* SELECT */ 00000380 40 | 00000390 41 | 00000400 42 | RETURN(CICS_INFORM); 00000410 43 | 00000420 44 | END F_CICSINFO ; 00000430 45 | 00000440 46 | -------------------------------------------------------------------------------- /src/GML/R0019965.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 01/12-89 08.47.58 AV DYBVIK */00000000 2 | /*YS*//* OBS NY PROSEDYRE */ 00000010 3 | F_DATO_ÅM_PLUSS1: 00000020 4 | PROC(DATO_ÅM) RETURNS(PIC'9999'); 00000030 5 | %SKIP(2); /* */ 00000040 6 | /* */ 00000050 7 | /* ***************************************************************** */00000060 8 | /* */00000070 9 | /* MOTTAR DATO_ÅM OG RETURNERER DATAOEN TILLAGT 1 MÅNED */00000080 10 | /* */00000090 11 | /* ***************************************************************** */00000100 12 | %SKIP(2); 00000110 13 | DCL 00000120 14 | DATO_ÅM PIC '9999'; 00000130 15 | DCL 00000140 16 | DATO_ÅM_PLUSS1 PIC '9999', 00000150 17 | DATO_Å DEF DATO_ÅM_PLUSS1 POS(1) PIC '99', 00000160 18 | DATO_M DEF DATO_ÅM_PLUSS1 POS(3) PIC '99'; 00000170 19 | %SKIP(2); 00000180 20 | DATO_ÅM_PLUSS1 = DATO_ÅM; 00000190 21 | DATO_M = DATO_M + 1; 00000200 22 | IF DATO_M > 12 THEN 00000210 23 | DO; 00000220 24 | DATO_Å = DATO_Å + 1; 00000230 25 | DATO_M = DATO_M - 12; 00000240 26 | END; 00000250 27 | RETURN(DATO_ÅM_PLUSS1); 00000260 28 | END F_DATO_ÅM_PLUSS1; 00000270 29 | -------------------------------------------------------------------------------- /src/GML/R001N808.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 06/03-91 11.49.57 AV DYBVIK */00000000 2 | TT_E3: 00000010 3 | PROC(FNR,TIL_DATO,TT_TIL_66_ÅR); 00000020 4 | /* ***************************************************************** */00000030 5 | /* PARAMETER INN: FNR,DØDSDATO ELLER STI */00000040 6 | /* PARAMETER UT : TT_TIL_66_ÅR */00000050 7 | /* HVORDAN SKAL VI KALLE DENNE OPP? LEGGS INN I N805 ???? */00000060 8 | /* SLIK BLIR DETTE GJORT I DAG: */00000070 9 | /* RUTINEN KALLES OPP FRA R0019909 (KONTROLL_TT), OG BEREGNER MAKS */00000080 10 | /* TT FØR 1967 (MAKS_TT_FØR_1967), OG TT FRA 1966 TIL 67-ÅRS DAGEN */00000090 11 | /* (TT_TIL_67_ÅR) */00000100 12 | /* ***************************************************************** */00000110 13 | DCL 00000120 14 | FNR PIC'(11)9'; 00000130 15 | DCL 00000140 16 | TIL_DATO PIC'(4)9'; 00000150 17 | DCL 00000160 18 | TT_TIL_66_ÅR PIC'(4)9'; 00000170 19 | DCL 00000180 20 | FYLT_SEKSTISEKS PIC'(5)9'; 00000190 21 | DCL 00000200 22 | W_FNR_MN PIC'(2)9' DEF FNR POS(3), 00000210 23 | W_FNR_ÅR PIC'(2)9' DEF FNR POS(5), 00000220 24 | W_PERSNR PIC'(3)9' DEF FNR POS(7); 00000230 25 | IF W_FNR_ÅR < 21 ! W_PERSNR < 500 THEN 00000240 26 | MAKS_TT = TIL_DATO - 37; /*TT REGNES FRA 010191 KUN FOM 1937*/00000250 27 | IF W_FNR_ÅR > 21 & W_PERSNR < 500 THEN 00000260 28 | MAKS_TT = TIL_DATO - W_FNR_ÅR + 66; 00000270 29 | RETURN; 00000280 30 | END TT_EP; 00000290 31 | -------------------------------------------------------------------------------- /src/GML/R001NACO.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/06-91 11.09.07 AV DYBVIK */00000000 2 | R001NAC: PROC (IN_TKNR,IN_TKNAVN) OPTIONS (COBOL); 00000010 3 | 00000020 4 | DCL SYSPRINT EXTERNAL FILE; 00000030 5 | %INCLUDE P0019953; /* TKNRTAB */ 00000040 6 | 00000050 7 | DCL IN_TKNR PIC '( 4)9', 00000060 8 | IN_TKNAVN CHAR (23) , 00000070 9 | FUNNET BIT ( 1) INIT ('1'B); 00000080 10 | 00000090 11 | DCL TKNRFIL FILE RECORD INPUT KEYED ENV (VSAM); 00000100 12 | 00000110 13 | 00000120 14 | ON KEY (TKNRFIL) 00000130 15 | FUNNET = '0'B; 00000140 16 | 00000150 17 | OPEN FILE(TKNRFIL) INPUT; 00000160 18 | 00000170 19 | READ FILE (TKNRFIL) INTO (TKNRTAB) KEY (IN_TKNR); 00000180 20 | 00000190 21 | IF FUNNET THEN 00000200 22 | IN_TKNAVN = TKNRTAB.TKNAVN; 00000210 23 | ELSE 00000220 24 | IN_TKNAVN = 'UGYLDIG TRYGDEKONTOR'; 00000230 25 | 00000240 26 | CLOSE FILE(TKNRFIL); 00000250 27 | END; 00000260 28 | -------------------------------------------------------------------------------- /src/GML/R001NAPL.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/06-91 11.08.56 AV DYBVIK */00000000 2 | R001NAP: PROC (IN_TKNR,IN_TKNAVN) OPTIONS (MAIN); 00000010 3 | 00000020 4 | DCL SYSPRINT EXTERNAL FILE; 00000030 5 | %INCLUDE P0019953; /* TKNRTAB */ 00000040 6 | 00000050 7 | DCL IN_TKNR PIC '( 4)9', 00000060 8 | IN_TKNAVN CHAR (23) , 00000070 9 | FUNNET BIT ( 1) INIT ('1'B); 00000080 10 | 00000090 11 | DCL TKNRFIL FILE RECORD INPUT KEYED ENV (VSAM); 00000100 12 | 00000110 13 | 00000120 14 | ON KEY (TKNRFIL) 00000130 15 | FUNNET = '0'B; 00000140 16 | 00000150 17 | OPEN FILE(TKNRFIL) INPUT; 00000160 18 | 00000170 19 | READ FILE (TKNRFIL) INTO (TKNRTAB) KEY (IN_TKNR); 00000180 20 | 00000190 21 | IF FUNNET THEN 00000200 22 | IN_TKNAVN = TKNRTAB.TKNAVN; 00000210 23 | ELSE 00000220 24 | IN_TKNAVN = 'UGYLDIG TRYGDEKONTOR'; 00000230 25 | 00000240 26 | CLOSE FILE(TKNRFIL); 00000250 27 | END; 00000260 28 | -------------------------------------------------------------------------------- /src/GML/R001NB22.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 22/03-91 11.25.12 AV DYBVIK */00000000 2 | /* **************************************************************** */ 00000010 3 | /*IDENTIFIKASJON: */ 00000020 4 | /* R001NB22 - PROSEDYRE I PLI */ 00000030 5 | /* PROGRAMMERER: HERMAN MARS 1991 */ 00000040 6 | /*HENSIKT: */ 00000050 7 | /* PENSJONSSTATUS OPPDATERES MED INFORMASJON FRA TRANSEN */ 00000060 8 | /*PROGRAMTILKNYTNINNG: */ 00000070 9 | /* FUNKSJONEN INCLUDES I BEHANDLINGA AV BARNEPENSJON */ 00000080 10 | /*BRUK: */ 00000090 11 | /* AJOURFØR_B02_MED_B6_TRANS */ 00000100 12 | /* */ 00000110 13 | /* **************************************************************** */ 00000120 14 | 00000130 15 | %SKIP(2); 00000140 16 | AJOURFØR_B02_MED_B6_TRANS: 00000150 17 | PROC(POS_I_TRANS); 00000160 18 | 00000170 19 | DCL 00000180 20 | POS_I_TRANS FIXED BIN(15); 00000190 21 | 00000200 22 | %SKIP; 00000210 23 | B02.PENSJONSTYPE1(BARN_IND) = 'N'; 00000220 24 | B02.NAVN (BARN_IND) = B6B.NAVN_BARN(POS_I_TRANS); 00000230 25 | B02.TKNR (BARN_IND) = B6B.TKNR(POS_I_TRANS); 00000240 26 | B02.SPRÅK(BARN_IND) = B6B.SPRÅK; 00000250 27 | B02.FØRSTE_GANG_REG(BARN_IND) = 'N'; 00000260 28 | 00000270 29 | B02.STATUS_KODE_HIST(BARN_IND)= ' '; 00000280 30 | B02.TT_ANV(BARN_IND) = 0; 00000290 31 | 00000300 32 | /* ************************************************************* */ 00000310 33 | /* DERSOM BARNET ER YNGSTE BARN */ 00000320 34 | /* ************************************************************* */ 00000330 35 | 00000340 36 | IF BARN_IND = 3 THEN 00000350 37 | DO; 00000360 38 | B02.PENSJONSTYPE2(BARN_IND) = 'P'; 00000370 39 | B02.NAVN(AVDØD_IND) = B6B.NAVN_DØD; 00000380 40 | END; 00000390 41 | ELSE 00000400 42 | B02.PENSJONSTYPE2(BARN_IND) = 'Ø'; 00000410 43 | 00000420 44 | 00000430 45 | END AJOURFØR_B02_MED_B6_TRANS; 00000440 46 | -------------------------------------------------------------------------------- /src/GML/R001NC10.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/04-91 11.44.11 AV DYBVIK */00000000 2 | /*IDENTIFIKASJON: */00000010 3 | /* R001NC10 - PROGRAM I PLI */00000020 4 | /* PROGRAMMERT AV SATISH 1991 */00000030 5 | /*HENSIKT: */00000040 6 | /* PROGRAMMET BEHANDLER BARNEDELEN. */00000050 7 | /*ENDRING: */00000060 8 | /* PROGRAMMET ER SKILT UT FRA R001NC04. */00000070 9 | /*BRUK: */00000080 10 | /* OVERFØR_BARN - OVERFØRING FRA MAP TIL ARBEIDSOMRÅDE */00000090 11 | /* */00000100 12 | /* */00000110 13 | %PAGE; /* */ 00000120 14 | /* ***************************************************************** */00000130 15 | /* */00000140 16 | /* PROSEDYREN OVERFØRER OPPL. OM BARN FRA SKJERMBILDET TIL */00000150 17 | /* F7_TRANS_OMR I KOM_OMR. */00000160 18 | /* */00000170 19 | /* ***************************************************************** */00000180 20 | OVERFØR_F7_BARN: 00000190 21 | PROC; 00000200 22 | %SKIP(2); 00000210 23 | DO A = 1 TO F7S.BT_ANT; 00000220 24 | IF FNR_BARNL(A) > 0 THEN 00000230 25 | F7B.FNR_BARN(A) = F_FELT_CHAR_PIC11 (FNR_BARNI (A)); 00000240 26 | 00000250 27 | IF RBTNL(A) > 0 THEN 00000260 28 | F7B.FELLES_BARN(A) = RBTNI(A); 00000270 29 | END; 00000280 30 | 00000290 31 | K = F7S.BT_ANT + 1; 00000300 32 | IF K < F7S.BT_ANT THEN 00000310 33 | DO; 00000320 34 | DO A = K TO F7S.BT_ANT; 00000330 35 | F7B.FNR_BARN(A) = 0; 00000340 36 | 00000350 37 | F7B.FELLES_BARN(A) = ' '; 00000360 38 | END; 00000370 39 | END; 00000380 40 | END OVERFØR_F7_BARN; 00000390 41 | -------------------------------------------------------------------------------- /src/GML/R001NRCO.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/06-91 11.09.19 AV DYBVIK */00000000 2 | R001NRC: PROC (IN_TKNR,IN_SVAR) OPTIONS(COBOL); 00000010 3 | 00000020 4 | DCL SYSPRINT EXTERNAL FILE; 00000030 5 | %INCLUDE P0019953; /* TKNRTAB */ 00000040 6 | 00000050 7 | DCL IN_TKNR PIC '( 4)9', 00000060 8 | IN_SVAR CHAR ( 1) , 00000070 9 | FUNNET BIT ( 1) INIT ('1'B); 00000080 10 | 00000090 11 | DCL TKNRFIL FILE RECORD INPUT KEYED ENV (VSAM); 00000100 12 | 00000110 13 | 00000120 14 | ON KEY (TKNRFIL) 00000130 15 | FUNNET = '0'B; 00000140 16 | 00000150 17 | OPEN FILE(TKNRFIL) INPUT; 00000160 18 | 00000170 19 | READ FILE (TKNRFIL) INTO (TKNRTAB) KEY (IN_TKNR); 00000180 20 | 00000190 21 | 00000200 22 | IF FUNNET THEN 00000210 23 | IN_SVAR = '0'; 00000220 24 | ELSE 00000230 25 | IN_SVAR = '1'; 00000240 26 | 00000250 27 | END; 00000260 28 | -------------------------------------------------------------------------------- /src/GML/R001NRPL.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/06-91 11.09.14 AV DYBVIK */00000000 2 | R001NRP: PROC (IN_TKNR,IN_SVAR) OPTIONS(MAIN); 00000010 3 | 00000020 4 | DCL SYSPRINT EXTERNAL FILE; 00000030 5 | %INCLUDE P0019953; /* TKNRTAB */ 00000040 6 | 00000050 7 | DCL IN_TKNR PIC '( 4)9', 00000060 8 | IN_SVAR CHAR ( 1) , 00000070 9 | FUNNET BIT ( 1) INIT ('1'B); 00000080 10 | 00000090 11 | DCL TKNRFIL FILE RECORD INPUT KEYED ENV (VSAM); 00000100 12 | 00000110 13 | 00000120 14 | ON KEY (TKNRFIL) 00000130 15 | FUNNET = '0'B; 00000140 16 | 00000150 17 | OPEN FILE(TKNRFIL) INPUT; 00000160 18 | 00000170 19 | READ FILE (TKNRFIL) INTO (TKNRTAB) KEY (IN_TKNR); 00000180 20 | 00000190 21 | 00000200 22 | IF FUNNET THEN 00000210 23 | IN_SVAR = '0'; 00000220 24 | ELSE 00000230 25 | IN_SVAR = '1'; 00000240 26 | 00000250 27 | END; 00000260 28 | -------------------------------------------------------------------------------- /src/GML/R001UC10.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 25/07-94 13.51.02 AV DYBVIK */00000000 2 | /* SIST ENDRET 25/02-94 12.33.17 AV HERMAN */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R001UC10 - PROGRAM I PLI */00000030 5 | /* PROGRAMMERT AV SATISH 1991 */00000040 6 | /*HENSIKT: */00000050 7 | /* PROGRAMMET BEHANDLER BARNEDELEN. */00000060 8 | /*ENDRING: */00000070 9 | /* PROGRAMMET ER SKILT UT FRA R001UC04. */00000080 10 | /*BRUK: */00000090 11 | /* OVERFØR_BARN - OVERFØRING FRA MAP TIL ARBEIDSOMRÅDE */00000100 12 | /* */00000110 13 | /* */00000120 14 | %PAGE; /* */ 00000130 15 | /* ***************************************************************** */00000140 16 | /* */00000150 17 | /* PROSEDYREN OVERFØRER OPPL. OM BARN FRA SKJERMBILDET TIL */00000160 18 | /* FO_TRANS_OMR I KOM_OMR. */00000170 19 | /* */00000180 20 | /* ***************************************************************** */00000190 21 | OVERFØR_FO_BARN: 00000200 22 | PROC; 00000210 23 | %SKIP(2); 00000220 24 | DO A = 1 TO FOS.BT_ANT; 00000230 25 | IF FNR_BARNL(A) > 0 THEN 00000240 26 | FOB.FNR_BARN(A) = F_FELT_CHAR_PIC11 (FNR_BARNI (A)); 00000250 27 | 00000260 28 | IF RBT_E0591L(A) > 0 THEN 00000270 29 | FOB.FELLES_ETTER0591(A) = RBT_E0591I(A); 00000280 30 | IF RBT_F0591L(A) > 0 THEN 00000290 31 | FOB.FELLES_FØR0591(A) = RBT_F0591I(A); 00000300 32 | END; 00000310 33 | 00000320 34 | K = FOS.BT_ANT + 1; 00000330 35 | IF K < FOS.BT_ANT THEN 00000340 36 | DO; 00000350 37 | DO A = K TO FOS.BT_ANT; 00000360 38 | FOB.FNR_BARN(A) = 0; 00000370 39 | 00000380 40 | FOB.FELLES_ETTER0591(A) = ' '; 00000390 41 | FOB.FELLES_FØR0591(A) = ' '; 00000400 42 | END; 00000410 43 | END; 00000420 44 | END OVERFØR_FO_BARN; 00000430 45 | -------------------------------------------------------------------------------- /src/J0010301.pli: -------------------------------------------------------------------------------- 1 | //C0010301 JOB 1014,'SPA2970',CLASS=A,NOTIFY=SPA2970,MSGCLASS=W 00010000 2 | //* 00020000 3 | //* JCL FOR KOPILERE A0010301 SOM GIR IKKE TILGANG TIL REGSI. 00030001 4 | //* 00040000 5 | //* 00050000 6 | //STP1 EXEC DFHYITPB,PARM.TRN='NOSOURCE' 00060000 7 | //TRN.SYSIN DD DSN=L001.PROD.PGMSRC(A0010301),DISP=SHR 00070000 8 | //PLI.SYSLIB DD 00080000 9 | // DD 00090000 10 | // DD DSN=L001.PROD.PGMCOPY,DISP=SHR 00100000 11 | // DD DSN=L001.PROD.PGMINCP,DISP=SHR 00110000 12 | // DD DSN=CICSTS.V1R3M0.CICS.SDFHPL1,DISP=SHR 00120000 13 | // DD DSN=CICSTS.V1R3M0.CICS.SDFHMAC,DISP=SHR 00130000 14 | //LKED.SYSLMOD DD DSN=L001.PROD.PGMLOAD,DISP=SHR 00140002 15 | //LKED.SYSIN DD * 00150000 16 | NAME R0010301(R) 00160000 17 | // 00170000 18 | -------------------------------------------------------------------------------- /src/R0011502.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 30/07-98 11.26.05 AV JDA7339 */00000000 2 | /* SIST ENDRET 17/06-98 14.41.38 AV HLA7339 */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0011502 - */00000030 5 | /* PROGRAMMERER: JAN, SEPTEMBER 81 */00000040 6 | /*HENSIKT: */00000050 7 | /* R0011502 INNEHOLDER: */00000060 8 | /* PROSEDYRER FOR BLANKING AV E2_TRANS_OMR. */00000070 9 | /*PROGRAMTILKNYTNING: */00000080 10 | /* PROSEDYRENE INCLUDES I BEHANDLING AV ENDRING AV TKNR */00000090 11 | /* TIL DET MASKINELLE FOLKETRYGDSYSTEMET. */00000100 12 | /* ARBEIDSOMRÅDE: P0011501 (LIGGER I R001.TEST.COPYLIB) */00000110 13 | /*BRUK: */00000120 14 | /* %INCLUDE R0011502; */00000130 15 | /* BLANK_E2_SØKER: BLANKER SØKERDELEN */00000140 16 | /* BLANK_E2_MELDNR: SETTER 0 I MELDINGSNUMMERNE */00000150 17 | %PAGE; /* */ 00000160 18 | /* ***************************************************************** */00000170 19 | /* */00000180 20 | /* PROSEDYREN BLANKER E2_SØKERDELEN I E2_TRANS_OMR I */00000190 21 | /* KOM_OMR FOR ENDRING I TKNR. */00000200 22 | /* */00000210 23 | /* ***************************************************************** */00000220 24 | %SKIP(2); /* */ 00000230 25 | BLANK_E2_SØKER: 00000240 26 | PROC; 00000250 27 | E2S.TKNR_FRA = 0; 00000260 28 | E2S.FNR = 0; 00000270 29 | E2S.FNR_GML = 0; 00000280 30 | E2S.TKNR_TIL = 0; 00000290 31 | END BLANK_E2_SØKER; 00000300 32 | %PAGE; /* */ 00000310 33 | /* ***************************************************************** */00000320 34 | /* */00000330 35 | /* PROSEDYRE FOR Å SETTE 0 MELDINGSNUMMERNE I E2_TRANS_OMR I */00000340 36 | /* KOM_OMR. */00000350 37 | /* */00000360 38 | /* ***************************************************************** */00000370 39 | %SKIP(2); 00000380 40 | BLANK_E2_MELDNR: 00000390 41 | PROC; 00000400 42 | E2S.TKNR_FRANR = 0; 00000410 43 | E2S.FNRNR = 0; 00000420 44 | E2S.TKNR_TILNR = 0; 00000430 45 | END BLANK_E2_MELDNR; 00000440 46 | -------------------------------------------------------------------------------- /src/R0012005.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.02.18 13.02.58 AV JDA7339 */ 2 | /* SIST ENDRET 10/12-98 13.30.46 AV JDA7339 */ 3 | /* SIST ENDRET 10/12-98 13.28.06 AV JDA7339 */ 4 | /* SIST ENDRET 04/05-98 12.40.19 AV JDA7339 */ 5 | /* SIST ENDRET 16/01-98 12.21.27 AV SPA7339 */ 6 | %SKIP; /* */ 7 | /* ***************************************************************** */ 8 | /*PROGRAMTILKNYTTING: */ 9 | /* ******************** */ 10 | /* PROGRAMMET INCLUDES I R0012001 - */ 11 | /* */ 12 | /* ***************************************************************** */ 13 | /*DATASETTOPPLYSNINGER: */ 14 | SKRIV_BRUKER_ID: PROC; 15 | DCL 01 BRUKERINFO_REC, 16 | 02 FNR PIC '(11)9', 17 | 02 BLANKET_TYPE CHAR (2) , 18 | 02 TERMINAL_NR CHAR (4) , 19 | 02 BRUKER_ID CHAR (8) , 20 | 02 FILLER CHAR (5) , 21 | 02 DATO PIC '(8)9' , 22 | 02 TID PIC '(7)9' , /* HHHMMSS */ 23 | 02 KJORINGS_TYPE CHAR (1) , 24 | 02 FIL1 CHAR (04) ; 25 | 26 | DCL HJELP_TID FIXED DEC(7,0); 27 | 28 | DCL BRUK_LOGG POINTER; 29 | 30 | BRUKERINFO_REC.FNR = DIV_PARAM_OMR.SEARCH_FNR; 31 | BRUKERINFO_REC.BLANKET_TYPE = STYRINGS_OMR.STYREKODE; 32 | BRUKERINFO_REC.BRUKER_ID = DIV_PARAM_OMR.BRUKER_ID; 33 | BRUKERINFO_REC.DATO = DATO_2000; 34 | 35 | HJELP_TID = EIBTIME; 36 | BRUKERINFO_REC.TID = HJELP_TID; 37 | BRUKERINFO_REC.KJORINGS_TYPE = STYRINGS_OMR.FUNKSJONSKODE ; 38 | BRUKERINFO_REC.TERMINAL_NR = DIV_PARAM_OMR.TERMINAL_NR; 39 | /* BRUKERINFO_REC.BRUKER_NAVN = DIV_PARAM_OMR.BRUKER_PASS; */ 40 | 41 | IF BRUKERINFO_REC.BLANKET_TYPE ^= 'US' THEN 42 | EXEC CICS WRITE DATASET('BRUKINFO') 43 | FROM (BRUKERINFO_REC) 44 | RIDFLD(BRUK_LOGG) RBA; 45 | END SKRIV_BRUKER_ID; 46 | -------------------------------------------------------------------------------- /src/R0014144.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 04/05-98 12.41.24 AV JDA7339 */00000000 2 | /* ***************************************************************** */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0014144 - SETT_TP_VT_GRUNNLAG - INTERN PROC I PLI. */00000030 5 | /* PROGRAMMERER: KRISTENSEN, APRIL 1982. */00000040 6 | /* ENDRET AV KARIN I JULI 82 */00000050 7 | /*HENSIKT: */00000060 8 | /* PROGRAMMET OPPDATERER B02 MED VT_SPT, VT_OPT OG VT_PÅ. */00000070 9 | /*PROGRAMTILKNYTNING: */00000080 10 | /* PROGRAMMET BLIR INKLUDERT I R0014131 - BEREGN_TP_ETTERLATT_AP. */00000090 11 | /*BRUK: */00000100 12 | /* CALL SETT_TP_VT_GRUNNLAG */00000110 13 | /* ***************************************************************** */00000120 14 | SETT_TP_VT_GRUNNLAG: 00000130 15 | PROC; 00000140 16 | 00000150 17 | DCL I FIXED BIN (15); 00000160 18 | 00000170 19 | 00000180 20 | I = W_FNR_R13.ÅR + 67; /*2000*/ 00000190 21 | 00000200 22 | IF W_FNR_R13.ÅR > 1903 THEN /*2000*/ 00000210 23 | 00000220 24 | DO; 00000230 25 | IF W_FNR_R13.ÅR = 1904 THEN /*2000*/ 00000240 26 | POREKKE_P67.POENG(IND,I + 2) = 0; 00000250 27 | 00000260 28 | ELSE 00000270 29 | IF W_FNR_R13.ÅR = 1905 THEN /*2000*/ 00000280 30 | 00000290 31 | DO; 00000300 32 | POREKKE_P67.POENG(IND,I + 1) = 0; 00000310 33 | POREKKE_P67.POENG(IND,I + 2) = 0; 00000320 34 | END; 00000330 35 | 00000340 36 | ELSE 00000350 37 | 00000360 38 | DO; 00000370 39 | POREKKE_P67.POENG(IND,I) = 0; 00000380 40 | POREKKE_P67.POENG(IND,I + 1) = 0; 00000390 41 | POREKKE_P67.POENG(IND,I + 2) = 0; 00000400 42 | END; 00000410 43 | 00000420 44 | END; 00000430 45 | 00000440 46 | END SETT_TP_VT_GRUNNLAG; 00000450 47 | -------------------------------------------------------------------------------- /src/R0014146.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.04.27 12.48.58 AV JDA7339 */ 2 | /* SIST ENDRET 04/05-98 12.41.32 AV JDA7339 */ 3 | /* SIST ENDRET 25/02-98 09.48.21 AV RFA9991 */ 4 | /* ***************************************************************** */ 5 | /* IDENTIFIKASJON: */ 6 | /* R0014146 - FAI_GRENSER - INTERN PROC I PLI. */ 7 | /* PROGRAMMERER: KRISTENSEN, MAI 1982. */ 8 | /* ENDRET AV KARIN I JULI */ 9 | /* HENSIKT: */ 10 | /* RUTINE FOR BEREGNING AV VED HVILKE INNTEKT PENSJONEN BØR */ 11 | /* REVURDERES FOR ENDRING AV APD. RUITINEN KALLES BARE OPP DERSOM */ 12 | /* ÅTTI PROSENT-REGELEN BLIR BRUKT. */ 13 | /* PROGRAMTILKNYTNING: */ 14 | /* PROGRAMMET BLIR INKLUDERT I / CALLET FRA */ 15 | /* 4101 / 4136 */ 16 | /* 4201 / 4136 */ 17 | /* 4251 / 4136 */ 18 | /* 7001 / 7031 - 7035 */ 19 | /* BRUK: */ 20 | /* CALL FAI_GRENSER(W_APD,W_TAI,W_FAI_MAX) */ 21 | /* ***************************************************************** */ 22 | FAI_GRENSER: PROC(W_APD,W_TAI,W_FAI_MAX); 23 | 24 | DCL 25 | W_APD FIXED DEC(7,3), 26 | W_TAI FIXED DEC(7), 27 | W_FAI_MAX FIXED DEC(7), 28 | ÅRSPENSJON FIXED DEC(7); 29 | 30 | 31 | ÅRSPENSJON = (B02.ALDERSP.GP (BER_SØ_IND) * 12 32 | + B02.ALDERSP.TP (BER_SØ_IND) * 12 33 | + B02.ALDERSP.ET (BER_SØ_IND) * 12 34 | + B02.ALDERSP.ST (BER_SØ_IND) * 12 35 | + B02.ALDERSP.KT (BER_SØ_IND) * 12 36 | + B02.TP_BRUTTO (BER_SØ_IND) * 12); 37 | 38 | 39 | W_FAI_MAX = (0.8 * W_TAI * 1000 - ÅRSPENSJON); 40 | 41 | 42 | W_FAI_MAX = ROUND(W_FAI_MAX + 49, -2); 43 | 44 | END FAI_GRENSER; 45 | -------------------------------------------------------------------------------- /src/R0014155.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.07.07 13.00.25 AV JDA7339 */ 2 | /* SIST ENDRET 04/05-98 12.58.10 AV JDA7339 */ 3 | /* SIST ENDRET 25/02-98 09.48.26 AV RFA9991 */ 4 | /* ***************************************************************** */ 5 | /* IDENTIFIKASJON: */ 6 | /* R0014155 - FAI_GRENSER_FRAVIK - INTERN PROC I PLI. */ 7 | /* PROGRAMMERER: KRISTENSEN, MAI 1982. */ 8 | /* ENDRET AV KARIN I JULI 82. */ 9 | /* HENSIKT: */ 10 | /* RUTINE FOR BEREGNING AV W_FAI_MAX I SPES. TILFELLE. */ 11 | /* PROGRAMTILKNYTNING: */ 12 | /* PROGRAMMET BLIR INKLUDERT I R0014136 - ÅTTI_PROSENT_REGELEN. */ 13 | /* 4101 */ 14 | /* 4201 */ 15 | /* 7001 */ 16 | /* BRUK: */ 17 | /* CALL FAI_GRENSER_FRAVIK(W_APD, W_FAI_MAX) */ 18 | /* ENDRET: */ 19 | /* 21.1.86 - HL : FEILRAPP 291 - DET SKALIKKE REGNES 10% TILLEGG */ 20 | /* ***************************************************************** */ 21 | FAI_GRENSER_FRAVIK: PROC(W_APD,W_FAI_MAX); 22 | 23 | /* VI SKAL LAGE TEKST OM AT PENSJONISTER MÅ MELDE FRA OM ENDRET */ 24 | /* INNTEKT, VED LAVE INNTEKTER GJELDER GRENSENE I DENNE RUTINE */ 25 | 26 | DCL 27 | W_APD FIXED DEC(7,3), 28 | W_FAI_MAX FIXED DEC(7); 29 | 30 | 31 | 32 | IF W_APD = 100 THEN 33 | W_FAI_MAX = 0.5 * G; 34 | ELSE IF W_APD = 75 THEN 35 | W_FAI_MAX = G; 36 | ELSE IF W_APD = 50 THEN 37 | W_FAI_MAX = 1.5 * G; 38 | ELSE /* W_APD = 25 */ 39 | W_FAI_MAX = 2 * G; 40 | 41 | /* FORHØYNING TIL NÆRMESTE HELE HUNDRE KRONER */ 42 | W_FAI_MAX = ROUND(W_FAI_MAX + 49, -2); 43 | 44 | END FAI_GRENSER_FRAVIK; 45 | -------------------------------------------------------------------------------- /src/R0014172.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 04/05-98 12.59.02 AV JDA7339 */00000000 2 | /* SIST ENDRET 13/12-91 12.23.48 AV DYBVIK */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0014172 - FUNKSJON I PLI */00000030 5 | /* PROGRAMMERER: HERMAN OKT 92 */00000040 6 | /*HENSIKT: */00000050 7 | /* FUNKSJONEN REGNER UT PENSJONSPOENG PÅ GRUNNLAG AV PENSJONS- */00000060 8 | /* GIVENDE INNTEKT OG EVENTUELL UFØREGRAD - BRUKER NY LOV PR 1992 */00000070 9 | /* */00000080 10 | /* ***************************************************************** */00000090 11 | F_INNTEKT_POENG_LOV92 : 00000100 12 | PROC(INNTEKT,ÅR,GV,UFG) RETURNS(FIXED DEC(5,4)); 00000110 13 | %SKIP(2); 00000120 14 | DCL 00000130 15 | INNTEKT FIXED DEC(9), 00000140 16 | ÅR FIXED BIN(15), 00000150 17 | GV FIXED DEC(5), 00000160 18 | UFG FIXED DEC(3), 00000170 19 | W_INNTEKT FIXED DEC(9) INIT(0), 00000180 20 | INNTEKT_POENG FIXED DEC(5,4) INIT(0), 00000190 21 | W_POENG FIXED DEC(6,3) INIT(0); 00000200 22 | 00000210 23 | 00000220 24 | IF INNTEKT > (GV * 12) THEN 00000230 25 | W_INNTEKT = GV * 12; 00000240 26 | ELSE 00000250 27 | W_INNTEKT = INNTEKT; 00000260 28 | 00000270 29 | IF W_INNTEKT > (GV * 6) THEN 00000280 30 | 00000290 31 | W_INNTEKT = (GV * 6) + ((INNTEKT - (GV * 6)) / 3) + 0.5; 00000300 32 | 00000310 33 | W_POENG = (W_INNTEKT - (GV * (100 - UFG) / 100)) / GV; 00000320 34 | 00000330 35 | IF W_POENG < 0 THEN 00000340 36 | W_POENG = 0; 00000350 37 | IF W_POENG > 7.00 THEN 00000360 38 | INNTEKT_POENG = 7.00; 00000370 39 | ELSE 00000380 40 | INNTEKT_POENG = W_POENG; 00000390 41 | RETURN(INNTEKT_POENG); 00000400 42 | %SKIP(2); 00000410 43 | END F_INNTEKT_POENG_LOV92; 00000420 44 | -------------------------------------------------------------------------------- /src/R0014472.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.03.01 10.45.28 AV JDA7339 */ 2 | /* SIST ENDRET PÅ PROD 2000.01.14 12.35.25 AV JDA7339 */ 3 | /* SIST ENDRET 19/10-99 14.55.50 AV JDA7339 */ 4 | /* SIST ENDRET 08/07-99 09.44.53 AV HLA7339 */ 5 | /* SIST ENDRET 19/02-99 12.31.37 AV JDA7339 */ 6 | /* SIST ENDRET 08/01-99 14.35.52 AV JDA7339 */ 7 | /* ***************************************************************** */ 8 | /* IDENTIFIKASJON */ 9 | /* R0014472 - INITIET_P0019985 - UNDERPROGRAM */ 10 | /* PROGRAMMERER: MARTIN HELLE 1298 */ 11 | /* HENSIKT */ 12 | /* NULLSTILLER ALLE VARIABLER I P0019985 */ 13 | /* PROGRAMTILKNYTNING. */ 14 | /* PROSEDYREN BLIR LINKET FRA 4370, 4470 */ 15 | /* ***************************************************************** */ 16 | NULLSTILL_P0019985 : PROC; 17 | DO I = 1 TO 4; 18 | W_BT(I) = 0; 19 | W_ET(I) = 0; 20 | W_GP(I) = 0; 21 | W_GP_BRUTTO(I) = 0; 22 | W_GP_TEORETISK(I) = 0; 23 | W_OPT(I) = 0; 24 | W_PÅ_FAKTISKE(I) = 0; 25 | W_PÅ_FRAMTIDIGE(I) = 0; 26 | W_PÅ_RETT_TIL_FRAMTIDIGE(I) = '0'B; 27 | W_PÅ_ETTER_91(I) = 0; 28 | W_PÅ_ANV(I) = 0; 29 | W_REDUSERT_ANT_BUP_ÅR(I) = 0; 30 | W_SKAL_BEREGNES(I) = '0'B; 31 | W_SPT(I) = 0; 32 | W_ST(I) = 0; 33 | W_ST_BRUTTO(I) = 0; 34 | W_ST_TEORETISK(I) = 0; 35 | W_SUM_PENSJON(I) = 0; 36 | W_TP(I) = 0; 37 | W_TP_BRUTTO(I) = 0; 38 | W_TP_TEORETISK(I) = 0; 39 | W_TT_ANV_MND(I) = 0; 40 | W_TT_ANV_ÅR(I) = 0; 41 | W_TT_FAKTISK_MND(I) = 0; 42 | W_TT_FRAMTIDIG_MND(I) = 0; 43 | W_TT_TEORETISK_MND(I) = 0; 44 | W_TT_REDUSERT(I) = ' '; 45 | W_TT_RETT_TIL_FRAMTIDIGE(I) = '0'B; 46 | END; /* DO I = 1 TO 4 */ 47 | END NULLSTILL_P0019985; 48 | -------------------------------------------------------------------------------- /src/R0014724.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 06/07-98 11.34.11 AV JDA7339 */00000000 2 | /* SIST ENDRET 25/05-98 13.30.50 AV MEA9991 */00000010 3 | /* ***************************************************************** */00000020 4 | /* IDENTIFIKASJON: */00000030 5 | /* R0014724 - PROSEDYRE I PLI */00000040 6 | /* PR0GRAMMERER: JAN, JUNI 1982 */00000050 7 | /* HENSIKT: */00000060 8 | /* BEREGNE GRUNNPENSJON FOR UFØRT ETTERLATT BARN */00000070 9 | /* PROGRAMTILKNYTNING: */00000080 10 | /* BLIR INKLUDERT I R0014701 */00000090 11 | /* BRUK: */00000100 12 | /* CALL BEREGN_GP_UFØRT_ETTERLATT_BARN(TT_ANV_UFØR,W_GP_UFØR) */00000110 13 | /* ***************************************************************** */00000120 14 | /* ENDRET: MARS 91 FOR NYE REGLER PENSJON UTLAND. */00000130 15 | /* ENDRET AV: TRUDE */00000140 16 | /* ***************************************************************** */00000150 17 | BEREGN_GP_UFØR_ETTERLATT_BARN: 00000160 18 | PROC (IND,TT_ANV_UFØR,W_GP_UFØR); 00000170 19 | 00000180 20 | DCL 00000190 21 | TT_ANV_UFØR UNAL FIXED DEC(3), 00000200 22 | W_GP_UFØR FIXED DEC(7), 00000210 23 | TT_EGEN FIXED DEC(3), 00000220 24 | IND FIXED BIN(15); 00000230 25 | 00000240 26 | TT_EGEN = B02.STATUS.TT_FØR_1967 (IND) 00000250 27 | + (B02.TT_ETTER_1966 (IND) 00000260 28 | + B02.TT_FRAMT (IND) + 11)/ 12; 00000270 29 | 00000280 30 | IF B02.TT_16_66(IND) > 0 THEN 00000290 31 | TT_EGEN = (B02.TT_16_66 (IND) 00000300 32 | + B02.TT_FRAMT(IND) + 6)/ 12; 00000310 33 | 00000320 34 | /* IF B6_TT_REDUSERT > 0 THEN 00000330 35 | TT_EGEN = B6_TT_REDUSERT; */ 00000340 36 | 00000350 37 | IF TT_EGEN > 39 THEN 00000360 38 | TT_EGEN = 40; 00000370 39 | 00000380 40 | TT_ANV_UFØR = TT_EGEN; 00000390 41 | 00000400 42 | W_GP_UFØR = (G * TT_ANV_UFØR * B02.UFØRPENS.UFG (IND)) 00000410 43 | / (40 * 100 * 12) + 0.5; 00000420 44 | END BEREGN_GP_UFØR_ETTERLATT_BARN; 00000430 45 | -------------------------------------------------------------------------------- /src/R0015216.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 20/07-98 13.05.52 AV JDA7339 */00000000 2 | /* SIST ENDRET 08/12-97 13.44.53 AV SPA7339 */00000010 3 | /* SIST ENDRET 11/11-86 11.30.30 AV DYBVIK */00000020 4 | /* SIST ENDRET 21/02-86 06.41.16 AV FARVIK */00000030 5 | /* SIST ENDRET 14/10-85 10.40.59 AV FARVIK */00000040 6 | /* SIST ENDRET 09/08-85 14.01.31 AV FARVIK */00000050 7 | /* SIST ENDRET 23/11-82 07.43.24 AV LUNDEBY */00000060 8 | 00000070 9 | 00000080 10 | %PAGE; 00000090 11 | /* ************************************************************ */ 00000100 12 | /* */ 00000110 13 | /* PROCEDURE SOM LEGGER INN BLANKETT-OPPLYSN. : O1 */ 00000120 14 | /* -------------------------------------------- */ 00000130 15 | /* */ 00000140 16 | /* ************************************************************ */ 00000150 17 | 00000160 18 | P160_LES_O1_TRANS: 00000170 19 | PROC; 00000180 20 | 00000190 21 | 00000200 22 | %PAGE; 00000210 23 | %INCLUDE P0011601; /* TRANS_OMR (BASED) : O1 */ 00000220 24 | 00000230 25 | 00000240 26 | /* ************************************************************ */00000250 27 | /* */00000260 28 | /* FERDIG MED DEKLARASJONENE . EKSEKVERINGEN STARTER . */00000270 29 | /* */00000280 30 | /* LEGGER O1-TRANS OVER VARIABEL-DEL . */00000290 31 | /* */00000300 32 | /* ************************************************************ */00000310 33 | 00000320 34 | TRANS_OMR = '' ; 00000330 35 | 00000340 36 | O1.REGDATO_ÅMD = TRANHIST.REGDATO_ÅMD ; 00000350 37 | O1.TERMID = TRANHIST.TERMID ; 00000360 38 | O1.FNR_DØD = SEARCH_FNR ; 00000370 39 | O1.TKNR_DØD = TRANHIST.TKNR ; 00000380 40 | O1.DØDSDATO_ÅMD = OPPHBL1.DØDSDATO_ÅMD ; 00000390 41 | O1.FNR_EK = OPPHBL1.FNR_EK ; 00000400 42 | O1.PI_DØD = OPPHBL1.PI ; 00000410 43 | 00000420 44 | END P160_LES_O1_TRANS; 00000430 45 | 00000440 46 | 00000450 47 | -------------------------------------------------------------------------------- /src/R0015220.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 08/12-97 13.45.08 AV SPA7339 */00000000 2 | /* SIST ENDRET 16/10-89 12.44.05 AV DYBVIK */00000010 3 | 00000020 4 | /* ************************************************************ */ 00000030 5 | /* */ 00000040 6 | /* PROCEDURE SOM LESER INN BLANKETT-OPPLYSN. : UF */ 00000050 7 | /* -------------------------------------------- */ 00000060 8 | /* */ 00000070 9 | /* ************************************************************ */ 00000080 10 | 00000090 11 | P183_LES_UF_TRANS: 00000100 12 | PROC; 00000110 13 | 00000120 14 | %PAGE; 00000130 15 | %INCLUDE P0011831; /* TRANS_OMR (BASED) : UFS */ 00000140 16 | 00000150 17 | 00000160 18 | /* ************************************************************ */00000170 19 | /* FERDIG MED DEKLARASJONENE . */00000180 20 | /* LEGGER OPPLYSNINGENE INN I BLANKETTEN . */00000190 21 | /* ************************************************************ */00000200 22 | 00000210 23 | TRANS_OMR = '' ; 00000220 24 | W01.VIRK_DATO_ÅMD = TRANHIST.VIRK_DATO_ÅMD ; 00000230 25 | 00000240 26 | UFS.REGDATO_ÅMD = TRANHIST.REGDATO_ÅMD ; 00000250 27 | UFS.TERMID = TRANHIST.TERMID ; 00000260 28 | UFS.FNR = SEARCH_FNR ; 00000270 29 | UFS.UFT_ÅMD = GRUNNBUF.UFT_ÅMD ; 00000280 30 | 00000290 31 | 00000300 32 | SLUTT: 00000310 33 | 00000320 34 | END P183_LES_UF_TRANS; 00000330 35 | 00000340 36 | 00000350 37 | -------------------------------------------------------------------------------- /src/R0019902.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 14/01-98 12.17.32 AV SPA7339 */00000000 2 | 00000010 3 | /* ***************************************************************** */00000020 4 | /* */00000030 5 | /* MODULEN FINNER KJØNN. /* PARAMETER: INN: FØDSELSNUMMER */00000040 6 | /* RETUR: 'M' - HANKJØNN */00000050 7 | /* 'K' - HUNKJØNN */00000060 8 | /* */00000070 9 | /* ***************************************************************** */00000080 10 | %SKIP(2); 00000090 11 | F_KJØNN: 00000100 12 | PROC (FNR) RETURNS (CHAR(1)); 00000110 13 | DCL 00000120 14 | FNR PIC '(11)9'; 00000130 15 | DCL 00000140 16 | KJØNN CHAR(1); 00000150 17 | DCL 00000160 18 | FNR_IND_SIF DEF FNR POS (9) PIC '9'; 00000170 19 | %SKIP(2); 00000180 20 | IF VERIFY(FNR_IND_SIF,'02468') = 0 THEN 00000190 21 | KJØNN = 'K'; 00000200 22 | ELSE 00000210 23 | KJØNN = 'M'; 00000220 24 | RETURN (KJØNN); 00000230 25 | END F_KJØNN; 00000240 26 | -------------------------------------------------------------------------------- /src/R0019908.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 23/01-98 09.56.54 AV SPA7339 */00000000 2 | F_DAGS_DATO_PLUSS_1MND: 00000010 3 | PROC RETURNS(PIC'(8)9'); 00000020 4 | %SKIP(2); /* */ 00000030 5 | /* */ 00000040 6 | /* ***************************************************************** */00000050 7 | /* */00000060 8 | /* HENTER INN DAGENS DATO OG RETURNERER DATAOEN TILLAGT 1 MÅNED */00000070 9 | /* */00000080 10 | /* ***************************************************************** */00000090 11 | %SKIP(2); 00000100 12 | DCL 00000110 13 | DATE BUILTIN; 00000120 14 | DCL 00000130 15 | DATO_ÅMD PIC '(8)9', 00000140 16 | DAGENS_DATO_ÅM DEF DATO_ÅMD POS(1) PIC '999999'; 00000150 17 | DCL 00000160 18 | DAGENS_DATO_1MND PIC'99999999', 00000170 19 | DAGENS_DATO_Å DEF DAGENS_DATO_1MND POS(1) PIC'9999', 00000180 20 | DAGENS_DATO_M DEF DAGENS_DATO_1MND POS(5) PIC'99'; 00000190 21 | %SKIP(2); 00000200 22 | DATO_ÅMD = DIV_PARAM_OMR.DATO_2000; 00000210 23 | DAGENS_DATO_1MND = DATO_ÅMD; 00000220 24 | DAGENS_DATO_M = DAGENS_DATO_M + 1; 00000230 25 | IF DAGENS_DATO_M > 12 THEN 00000240 26 | DO; 00000250 27 | DAGENS_DATO_Å = DAGENS_DATO_Å + 1; 00000260 28 | DAGENS_DATO_M = DAGENS_DATO_M - 12; 00000270 29 | END; 00000280 30 | RETURN(DAGENS_DATO_1MND); 00000290 31 | END F_DAGS_DATO_PLUSS_1MND; 00000300 32 | -------------------------------------------------------------------------------- /src/R0019910.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 14/01-98 15.46.43 AV SPA7339 */00000000 2 | /* SIST ENDRET 21/04-97 11.05.31 AV SPA7339 */00000010 3 | /* **************************************************************** */ 00000020 4 | /*IDENTIFIKASJON: */ 00000030 5 | /* R0019910 - PROCEDYRE I PLI */ 00000040 6 | /* PROGRAMMERER: JAN-H. KRISTENSEN ,MAI 1981 */ 00000050 7 | /*HENSIKT: */ 00000060 8 | /* PROSEDYREN KONTROLLERER OM ET OVERFØRT CHAR-FELT ER NUMERISK. */ 00000070 9 | /* DERSOM FELTET ER NUMERISK RETURNERES '1'B, HVIS IKKE '0'B. */ 00000080 10 | /*PARAMETER INN: */ 00000090 11 | /* NUMFELT. */ 00000100 12 | /*PARAMETER UT: */ 00000110 13 | /* RETUR. */ 00000120 14 | /*BRUK: */ 00000130 15 | /* IF ^F_NUMERISK(FELT) THEN (SKRIV FEILMELDING). */ 00000140 16 | /* **************************************************************** */ 00000150 17 | F_NUMERISK: 00000160 18 | PROC(NUMFELT) RETURNS (BIT(1)); 00000170 19 | DCL NUMFELT CHAR(*), 00000180 20 | RETUR BIT(1) INIT('1'B); 00000190 21 | IF VERIFY(NUMFELT,'0123456789') > 0 THEN 00000200 22 | RETUR = '0'B; 00000210 23 | RETURN(RETUR); 00000220 24 | END F_NUMERISK; 00000230 25 | -------------------------------------------------------------------------------- /src/R0019913.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 22/12-88 09.55.22 AV DYBVIK */00000000 2 | /* ***************************************************************** */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0019913 - FUNKSJON I PLI */00000030 5 | /* PROGRAMMERER - P. BERGESTAD */00000040 6 | /*HENSIKT: */00000050 7 | /* PROSEDYREN SNUR DATOER FRA MMÅÅ TIL ÅÅMM */00000060 8 | /*BRUK: */00000070 9 | /* = F_SNU_DATO(PARAMETER) */00000080 10 | /*ENDRET OKT. 1998 AV SVERRE LUNDEBY, DATA-UTVIKLING */00000070 11 | /* ENDRER DATO FRA 4 TIL 8 SIFFER ÅR 2000 */00000080 12 | /* ***************************************************************** */00000090 13 | F_SNU_DATO: 00000100 14 | PROC(INN_DATO) RETURNS(PIC'(8)9'); 00000110 15 | DCL 00000120 16 | INN_DATO PIC'(8)9', 00000130 17 | UT_DATO PIC'(8)9', 00000140 18 | W_DD DEF INN_DATO POS(1) PIC'(2)9', 00000150 19 | W_MM DEF INN_DATO POS(3) PIC'(2)9', 00000160 20 | W_AARH DEF INN_DATO POS(5) PIC'(4)9'; 00000160 21 | /*Y2K*/ 22 | UT_DATO = W_AARH * 10000 + W_MM * 100 + W_DD; 00000190 23 | RETURN(UT_DATO); 00000210 24 | END F_SNU_DATO; 00000220 25 | -------------------------------------------------------------------------------- /src/R0019923.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 04/05-98 13.27.26 AV JDA7339 */00000000 2 | /* SIST ENDRET 23/01-98 09.57.08 AV SPA7339 */00000010 3 | /* SIST ENDRET 11/07-91 14.23.20 AV DYBVIK */00000020 4 | /* SIST ENDRET 04/01-91 08.43.04 AV DYBVIK */00000030 5 | /* SIST ENDRET 28/09-82 12.25.08 AV FARVIK */00000040 6 | /* *************************************************************** */ 00000050 7 | /*IDENTIFIKASJON: */ 00000060 8 | /* R0019923 - PROSEDYRE I PLI */ 00000070 9 | /* PROGRAMMERER: GEIR, OKTOBER 1981 */ 00000080 10 | /*HENSIKT: */ 00000090 11 | /* PROSEDYREN OPPRETTER PENSJONSSTATUS FOR FORSØRGET BARN OG */ 00000100 12 | /* INCLUDES I 0520,0620,1220 */ 00000110 13 | /*BRUK: */ 00000120 14 | /* CALL OPPRETT_STATUS_FORS_BARN(IND1,IND2) */ 00000130 15 | /* */ 00000140 16 | /* *************************************************************** */ 00000150 17 | % SKIP(1); 00000160 18 | OPPRETT_STATUS_FORS_BARN: 00000170 19 | PROC(IND1,IND2); 00000180 20 | DCL 00000190 21 | IND1 FIXED BIN (15), 00000200 22 | IND2 FIXED BIN (15); 00000210 23 | %SKIP; 00000220 24 | B02.PENSJONSTYPE1(IND1) = 'L'; 00000230 25 | B02.STATUS.SIVILSTAND(IND1) = 'U'; 00000240 26 | B02.STATUS.VIRK_DATO_ÅMD(IND1) = 00000250 27 | TRANS_OMR.VIRK_DATO_ÅMD; 00000260 28 | IF B02.STATUS.VIRK_DATO_ÅMD(IND1) < 19910000 THEN 00000270 29 | /*HL*/ B02.PENSJONSRETT_FØR_91(IND1) = 'J'; 00000280 30 | ELSE 00000290 31 | IF B02.STATUS.VIRK_DATO_ÅMD(IND1) < 19950000 THEN 00000300 32 | /*HL*/ B02.PENSJONSRETT_FØR_91(IND1) = 'X'; 00000310 33 | B02.FØRSTE_GANG_REG(IND1) = B02. 00000320 34 | FØRSTE_GANG_REG(IND2); 00000330 35 | END OPPRETT_STATUS_FORS_BARN; 00000340 36 | -------------------------------------------------------------------------------- /src/R0019945.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2005.05.23 13.52.33 AV JDA2970 */ 2 | /* SIST ENDRET PÅ PROD 2003.09.19 12.48.40 AV JDA2970 */ 3 | /* SIST ENDRET PÅ PROD 2003.03.25 8.36.57 AV JDA2970 */ 4 | /* SIST ENDRET PÅ PROD 2003.02.27 12.27.04 AV JDA2970 */ 5 | /* SIST ENDRET PÅ TEST 2002.11.21 13.15.31 AV JDA2970 */ 6 | /* ******************************************************* */ 7 | /* SKRIVER AV : SATISH PATHAK */ 8 | /* DATO : 16.11.2002 */ 9 | /* PROGRAM KONTROLLER FNR OG TKNR MOT ATK TILLGANG */ 10 | /* ******************************************************* */ 11 | ATK_TILGANG_KONTROLL: PROC; 12 | 13 | IF FEIL_MELD_NR > 0 THEN 14 | FEIL_FUNNET = '1'B; 15 | 16 | IF ^FEIL_FUNNET THEN 17 | DO; 18 | CALL KONTROLL_ACF2; 19 | IF FEIL_MELD_NR > 0 THEN 20 | DO; 21 | FEIL_FUNNET = '1'B; 22 | IF FEIL_MELD_NR = 0654 THEN 23 | FNRNR = FEIL_MELD_NR; 24 | ELSE 25 | TKNRNR = FEIL_MELD_NR; 26 | END; 27 | END; 28 | END ATK_TILGANG_KONTROLL; 29 | -------------------------------------------------------------------------------- /src/R0019948.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 08/09-98 10.33.09 AV JDA7339 */00000000 2 | /* SIST ENDRET 25/03-98 10.24.31 AV MEA9991 */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0019948 PLI */00000030 5 | /* PROC ER LAGET I NOVEMBER 1982 AV GRÆSMO. */00000040 6 | /*HENSIKT: */00000050 7 | /* BLANKER FØRSTE FOREKOMST AV NULLER I PARAMETERGITT FELT */00000060 8 | /* ELLER LINJE. */00000070 9 | /*BRUKES: */00000080 10 | /* CALL BLANK_LEDENDE_NULL(FELT) */00000090 11 | /*PARAMETRE INN: */00000100 12 | /* 1 FELTET ELLER LINJEN SOM SKAL BLANKES LEDENDE NULL */00000110 13 | /*PARAMETRE UT : */00000120 14 | /* INGEN */00000130 15 | /* ***************************************************************** */00000140 16 | %PAGE; /* */ 00000150 17 | BLANK_LEDENDE_NULL: 00000160 18 | PROC (A); 00000170 19 | 00000180 20 | /* ************************************************************* */ 00000190 21 | /* */ 00000200 22 | /* BLANKER LEDENDE NULLER */ 00000210 23 | /* */ 00000220 24 | /* ************************************************************* */ 00000230 25 | 00000240 26 | DCL A CHAR (*); 00000250 27 | STOP = '0'B; 00000260 28 | DO I = 1 TO (LENGTH(A)-1) UNTIL (STOP); 00000270 29 | IF SUBSTR(A,I,1) = '0' THEN 00000280 30 | SUBSTR(A,I,1) = ''; 00000290 31 | ELSE STOP = '1'B; 00000300 32 | END; 00000310 33 | END BLANK_LEDENDE_NULL; 00000320 34 | 00000330 35 | -------------------------------------------------------------------------------- /src/R0019965.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 20/07-98 13.19.03 AV SPA7339 */00000000 2 | F_DATO_ÅMD_PLUSS1: /*Y2K*/00000010 3 | PROC(DATO_ÅMD) RETURNS(PIC'(8)9'); 00000020 4 | %SKIP(2); 00000030 5 | 6 | /* ***************************************************************** */00000050 7 | /* */00000060 8 | /* MOTTAR DATO_ÅM OG RETURNERER DATAOEN TILLAGT 1 MÅNED */00000070 9 | /* */00000080 10 | /* ENDRET 19980720 MEA9991: RETURNERT DATO Må VÆRE GYLDIG. */00000090 11 | /* */00000100 12 | /* ***************************************************************** */00000110 13 | %SKIP(2); 00000120 14 | DCL 00000130 15 | DATO_ÅMD PIC '(8)9'; /*Y2K*/00000140 16 | DCL 00000150 17 | DATO_ÅMD_PLUSS1 PIC '(8)9', /*Y2K*/00000160 18 | DATO_Å DEF DATO_ÅMD_PLUSS1 POS(1) PIC '(4)9', /*Y2K*/00000170 19 | DATO_M DEF DATO_ÅMD_PLUSS1 POS(5) PIC '99', /*Y2K*/00000180 20 | DATO_D DEF DATO_ÅMD_PLUSS1 POS(7) PIC '99'; /*19980720*/00000190 21 | %SKIP(2); 00000200 22 | DATO_ÅMD_PLUSS1 = DATO_ÅMD; /*Y2K*/00000210 23 | DATO_M = DATO_M + 1; 00000220 24 | IF DATO_M > 12 THEN 00000230 25 | DO; 00000240 26 | DATO_Å = DATO_Å + 1; 00000250 27 | DATO_M = DATO_M - 12; 00000260 28 | END; 00000270 29 | IF DATO_M = 2 & DATO_D > 29 THEN /*19980720*/00000280 30 | DATO_D = 29; /*19980720*/00000290 31 | IF DATO_D > 28 THEN /*19980720*/00000300 32 | DO; /*19980720*/00000310 33 | IF ^F_GYLDIG_DATO(DATO_ÅMD_PLUSS1) THEN /*19980720*/00000320 34 | DATO_D = DATO_D - 1; /*19980720*/00000330 35 | END; /*19980720*/00000340 36 | RETURN(DATO_ÅMD_PLUSS1); /*Y2K*/00000350 37 | END F_DATO_ÅMD_PLUSS1; /*Y2K*/00000360 38 | -------------------------------------------------------------------------------- /src/R0019970.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2004.08.05 13.55.23 AV JDA2970 */ 2 | /* SIST ENDRET PÅ PROD 2002.05.06 14.06.55 AV HLA2970 */ 3 | /* SIST ENDRET PÅ PROD 2002.04.10 8.58.55 AV JDA2970 */ 4 | /* *************************************************************** */ 5 | /* IDENTIFIKASJON: R0019970 */ 6 | /* PROGRAMMERER: SATISH 2002 */ 7 | /* HENSIKT: */ 8 | /* BYTTE BRUKER-ID TIL NY BRUKER-ID */ 9 | /* */ 10 | /* */ 11 | /* */ 12 | /* */ 13 | /* PROGRAM_TILKNYTNING: KALLES OPP AV 7101 */ 14 | /* *************************************************************** */ 15 | KONV_AV_BRUKER_ID: PROC; 16 | DCL W_ID CHAR (8); 17 | W_ID = DIV_PARAM_OMR.BRUKER_ID; 18 | SELECT (W_ID); 19 | WHEN ( 'FFA0316 ') 20 | DIV_PARAM_OMR.BRUKER_ID = 'FFA2316 '; 21 | WHEN ( 'SBA0221 ') 22 | DIV_PARAM_OMR.BRUKER_ID = 'SBA2221 '; 23 | WHEN ( 'EHB0318 ') 24 | DIV_PARAM_OMR.BRUKER_ID = 'EHB2318 '; 25 | WHEN ( 'EHB2318 ') 26 | DIV_PARAM_OMR.BRUKER_ID = 'EHB0318 '; 27 | WHEN ( 'FSA0219 ') 28 | DIV_PARAM_OMR.BRUKER_ID = 'FSA2219 '; 29 | WHEN ( 'FSA2219 ') 30 | DIV_PARAM_OMR.BRUKER_ID = 'FSA0219 '; 31 | OTHERWISE; 32 | END; 33 | 34 | END KONV_AV_BRUKER_ID; 35 | 36 | -------------------------------------------------------------------------------- /src/R0019972.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2004.12.17 14.09.55 AV JDA2970 */ 2 | /* SIST ENDRET PÅ TEST 2004.07.13 15.01.03 AV SPA2970 */ 3 | /* ********************************************************** **/ 4 | /* DET ER DUMMY PROCEDURE FOR FEILMELDING **/ 5 | /* ************************************************************* **/ 6 | SKRIV_FEIL: /** DUMMY PROC **/ 7 | PROC(FIXED_DEC_5); 8 | 9 | DCL 10 | FIXED_DEC_5 UNAL FIXED DEC(5); 11 | 12 | END SKRIV_FEIL; 13 | 14 | SKRIV_FEIL_YP: PROC(FIXED_DEC_5); /** DUMMY PROC **/ 15 | 16 | DCL 17 | FIXED_DEC_5 UNAL FIXED DEC(5); 18 | 19 | END SKRIV_FEIL_YP; 20 | 21 | SKRIV_FEIL_SP: PROC(FIXED_DEC_5); /** DUMMY PROC **/ 22 | 23 | DCL 24 | FIXED_DEC_5 UNAL FIXED DEC(5); 25 | 26 | END SKRIV_FEIL_SP; 27 | 28 | SKRIV_FEIL_EØS: PROC(FIXED_DEC_5); /** DUMMY PROC **/ 29 | 30 | DCL 31 | FIXED_DEC_5 UNAL FIXED DEC(5); 32 | 33 | END SKRIV_FEIL_EØS; 34 | -------------------------------------------------------------------------------- /src/R0019975.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2004.12.17 15.18.00 AV SPA2970 */ 2 | /* SIST ENDRET PÅ TEST 2004.07.13 13.57.35 AV SPA2970 */ 3 | /* ***************************************************************** */ 4 | /* IDENTIFIKASJON: */ 5 | /* R0019975 */ 6 | /* PROGRAMMERER: MARTIN, JUNI 2004 */ 7 | /* HENSIKT: */ 8 | /* SNUR FNR TIL HHÅÅMMDDPERS FOR SORTERING */ 9 | /* PROGRAMTILKNYTNING: */ 10 | /* KALLES OPP AV 1620 */ 11 | /* ***************************************************************** */ 12 | KONV_FNR11_HÅMDPNR:PROC(INN_FNR_FD11) 13 | RETURNS(PIC'(13)9'); 14 | DCL 15 | (W_FNR11) PIC '(11)9', 16 | (W_FNR13, 17 | W_SNUDD_FNR_UT) PIC '(13)9'; 18 | DCL 19 | 1 W_FNR_13R DEF W_FNR13, 20 | 2 DD PIC '99', 21 | 2 MM PIC '99', 22 | 2 HHÅÅ PIC '9999', 23 | 2 REST PIC '99999'; 24 | DCL 25 | 1 W_FNR_UT DEF W_SNUDD_FNR_UT, 26 | 2 HHÅÅ PIC '9999', 27 | 2 MM PIC '99', 28 | 2 DD PIC '99', 29 | 2 REST PIC '99999'; 30 | W_FNR11 = INN_FNR; 31 | W_FNR13 = KONV_FNR11_FNR13(W_FNR11); 32 | W_FNR_UT = W_FNR_13R, BY NAME; 33 | RETURN(W_SNUDD_FNR_UT); 34 | END KONV_FNR11_HÅMDPNR; 35 | -------------------------------------------------------------------------------- /src/R0019981.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.53.53 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO ÅR */ 00000020 4 | /* *************************************************************** */ 00000030 5 | KONV_ÅR_HÅ: PROC(IN_DATO) RETURNS(DEC FIXED(5)); 00000040 6 | DCL IN_DATO PIC '(2)9'; 00000050 7 | DCL UT_DATO DEC FIXED (5); 00000060 8 | DCL 1 H_DATO, 00000070 9 | 02 ÅÅ PIC '99' INIT (00), 00000080 10 | 1 H_DATO_IN DEF H_DATO PIC '99'; 00000090 11 | 00000100 12 | DCL 1 H_DATO_UT, 00000110 13 | 02 HH PIC '99' INIT (00), 00000120 14 | 02 ÅÅ PIC '99' INIT (00), 00000130 15 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '9999'; 00000140 16 | 00000150 17 | IF IN_DATO > 0 THEN 00000160 18 | H_DATO_IN = IN_DATO; 00000170 19 | ELSE 00000180 20 | H_DATO_IN = 0 ; 00000190 21 | 00000200 22 | H_DATO_UT = H_DATO, BY NAME; 00000210 23 | IF H_DATO_IN > 40 THEN 00000220 24 | H_DATO_UT.HH = 19; 00000230 25 | ELSE 00000240 26 | H_DATO_UT.HH = 20; 00000250 27 | 00000260 28 | UT_DATO = H_DATO_UT_PK; 00000270 29 | 30 | RETURN (UT_DATO); 00000320 31 | END KONV_ÅR_HÅ; 00000330 32 | 00000340 33 | -------------------------------------------------------------------------------- /src/R0019986.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.09 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO ÅR */ 00000020 4 | /* *************************************************************** */ 00000030 5 | KONV_HÅ_Å: PROC(IN_DATO) RETURNS ( PIC '99' ); 00000040 6 | DCL IN_DATO PIC '(4)9'; 00000050 7 | DCL UT_DATO PIC '99' ; 00000060 8 | DCL 1 H_DATO, 00000070 9 | 02 HH PIC '99' INIT (00), 00000080 10 | 02 ÅÅ PIC '99' INIT (00), 00000090 11 | 1 H_DATO_IN DEF H_DATO PIC '9999'; 00000100 12 | 00000110 13 | DCL 1 H_DATO_UT, 00000120 14 | 02 ÅÅ PIC '99' INIT (00), 00000130 15 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '99'; 00000140 16 | 00000150 17 | IF IN_DATO > 0 THEN 00000160 18 | H_DATO_IN = IN_DATO; 00000170 19 | ELSE 00000180 20 | H_DATO_IN = 0 ; 00000190 21 | 00000200 22 | H_DATO_UT = H_DATO, BY NAME; 00000210 23 | 00000220 24 | UT_DATO = H_DATO_UT_PK; 00000230 25 | 00000240 26 | 00000250 27 | RETURN (UT_DATO); 00000260 28 | END KONV_HÅ_Å; 00000270 29 | 00000280 30 | -------------------------------------------------------------------------------- /src/R0019987.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.17 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO ÅR.MND */ 00000020 4 | /* *************************************************************** */ 00000030 5 | KONV_HÅMD_ÅM: PROC(IN_DATO) RETURNS(PIC '9999' ); 00000040 6 | DCL IN_DATO PIC '(8)9'; 00000050 7 | DCL UT_DATO PIC '9999' ; 00000060 8 | DCL 1 H_DATO, 00000070 9 | 02 HH PIC '99' INIT (00), 00000080 10 | 02 ÅR PIC '99' INIT (00), 00000090 11 | 02 MM PIC '99' INIT (00), 00000100 12 | 02 DD PIC '99' INIT (00), 00000110 13 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000120 14 | 00000130 15 | DCL 1 H_DATO_UT, 00000140 16 | 02 ÅR PIC '99' INIT (00), 00000150 17 | 02 MM PIC '99' INIT (00), 00000160 18 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '9999'; 00000170 19 | 00000180 20 | IF IN_DATO > 0 THEN 00000190 21 | DO; 00000200 22 | H_DATO_IN = IN_DATO; 00000210 23 | H_DATO_UT = H_DATO, BY NAME; 00000220 24 | END; 00000230 25 | ELSE 00000240 26 | H_DATO_UT_PK = 0; 00000250 27 | 00000260 28 | UT_DATO = H_DATO_UT_PK; 00000270 29 | 00000280 30 | RETURN (UT_DATO); 00000290 31 | END KONV_HÅMD_ÅM; 00000300 32 | 00000310 33 | -------------------------------------------------------------------------------- /src/R0019988.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.24 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO 6 CHAR / 7 CHAR TIL 9 CHAR */ 00000020 4 | /* *************************************************************** */ 00000030 5 | KONV_HÅMD_ÅMD: PROC(IN_DATO) RETURNS( PIC '(6)9' ); 00000040 6 | DCL IN_DATO PIC '(8)9'; 00000050 7 | DCL UT_DATO PIC '(6)9' ; 00000060 8 | 00000070 9 | DCL 1 H_DATO, 00000080 10 | 02 HH PIC '99' INIT (00), 00000090 11 | 02 ÅR PIC '99' INIT (00), 00000100 12 | 02 MM PIC '99' INIT (00), 00000110 13 | 02 DD PIC '99' INIT (00), 00000120 14 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000130 15 | 00000140 16 | DCL 1 H_DATO_UT, 00000150 17 | 02 ÅR PIC '99' INIT (00), 00000160 18 | 02 MM PIC '99' INIT (00), 00000170 19 | 02 DD PIC '99' INIT (00), 00000180 20 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '999999'; 00000190 21 | /* ************ */ 00000200 22 | IF IN_DATO > 0 THEN 00000210 23 | DO; 00000220 24 | H_DATO_IN = IN_DATO; 00000230 25 | H_DATO_UT = H_DATO, BY NAME; 00000240 26 | END; 00000250 27 | ELSE 00000260 28 | H_DATO_UT_PK = 0; 00000270 29 | 00000280 30 | UT_DATO = H_DATO_UT_PK; 00000290 31 | 00000300 32 | RETURN (UT_DATO); 00000310 33 | END KONV_HÅMD_ÅMD; 00000320 34 | 00000330 35 | -------------------------------------------------------------------------------- /src/R0019989.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.29 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO 6 CHAR / 7 CHAR TIL 9 CHAR */ 00000020 4 | /* *************************************************************** */ 00000030 5 | KONV_HÅMD_MÅ: PROC(IN_DATO) RETURNS(PIC '9999'); 00000040 6 | DCL IN_DATO PIC '(8)9'; 00000050 7 | DCL UT_DATO PIC '9999' ; 00000060 8 | 00000070 9 | DCL 1 H_DATO, 00000080 10 | 02 HH PIC '99' INIT (00), 00000090 11 | 02 ÅR PIC '99' INIT (00), 00000100 12 | 02 MM PIC '99' INIT (00), 00000110 13 | 02 DD PIC '99' INIT (00), 00000120 14 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000130 15 | 00000140 16 | DCL 1 H_DATO_UT, 00000150 17 | 02 MM PIC '99' INIT (00), 00000160 18 | 02 ÅR PIC '99' INIT (00), 00000170 19 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '9999'; 00000180 20 | /* ************ */ 00000190 21 | IF IN_DATO > 0 THEN 00000200 22 | DO; 00000210 23 | H_DATO_IN = IN_DATO; 00000220 24 | H_DATO_UT = H_DATO, BY NAME; 00000230 25 | END; 00000240 26 | ELSE 00000250 27 | H_DATO_UT_PK = 0; 00000260 28 | 00000270 29 | UT_DATO = H_DATO_UT_PK; 00000280 30 | 00000290 31 | RETURN (UT_DATO); 00000300 32 | END KONV_HÅMD_MÅ; 00000310 33 | 00000320 34 | -------------------------------------------------------------------------------- /src/R0019990.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.35 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO 6 CHAR / 7 CHAR TIL 9 CHAR */ 00000020 4 | /* DD.MND.ÅR -> HHÅR.MND.DD */ 00000030 5 | /* *************************************************************** */ 00000040 6 | KONV_HÅMD_DMÅ: PROC(IN_DATO) RETURNS(PIC '(6)9' ); 00000050 7 | DCL IN_DATO PIC '(8)9'; 00000060 8 | DCL UT_DATO PIC '(6)9' ; 00000070 9 | 00000080 10 | DCL 1 H_DATO, 00000090 11 | 02 HH PIC '99' INIT (00), 00000100 12 | 02 ÅR PIC '99' INIT (00), 00000110 13 | 02 MM PIC '99' INIT (00), 00000120 14 | 02 DD PIC '99' INIT (00), 00000130 15 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000140 16 | 00000150 17 | DCL 1 H_DATO_UT, 00000160 18 | 02 DD PIC '99' INIT (00), 00000170 19 | 02 MM PIC '99' INIT (00), 00000180 20 | 02 ÅR PIC '99' INIT (00), 00000190 21 | 1 H_DATO_UT_PK DEF H_DATO_UT PIC '999999'; 00000200 22 | 00000210 23 | /* ************ */ 00000220 24 | IF IN_DATO > 0 THEN 00000230 25 | DO; 00000240 26 | H_DATO_IN = IN_DATO; 00000250 27 | H_DATO_UT = H_DATO, BY NAME; 00000260 28 | END; 00000270 29 | ELSE 00000280 30 | H_DATO_UT_PK = 0 ; 00000290 31 | 00000300 32 | UT_DATO = H_DATO_UT_PK; 00000310 33 | 00000320 34 | RETURN (UT_DATO); 00000330 35 | END KONV_HÅMD_DMÅ; 00000340 36 | 00000350 37 | -------------------------------------------------------------------------------- /src/R0019991.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.39 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR KONVERTERING AV DATO 6 CHAR / 7 CHAR TIL 9 CHAR */ 00000020 4 | /* DD.MND.ÅR -> HHÅR.MND.DD */ 00000030 5 | /* *************************************************************** */ 00000040 6 | KONV_HÅMD_DMHÅ: PROC(IN_DATO) RETURNS(PIC '(08)9' ); 00000050 7 | DCL IN_DATO PIC '(8)9'; 00000060 8 | DCL UT_DATO PIC '(08)9' ; 00000070 9 | 00000080 10 | DCL 1 H_DATO, 00000090 11 | 02 HH PIC '99' INIT (00), 00000100 12 | 02 ÅR PIC '99' INIT (00), 00000110 13 | 02 MM PIC '99' INIT (00), 00000120 14 | 02 DD PIC '99' INIT (00), 00000130 15 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000140 16 | 00000150 17 | DCL 1 H_DATO_UT, 00000160 18 | 02 DD PIC '99' INIT (00), 00000170 19 | 02 MM PIC '99' INIT (00), 00000190 20 | 02 HH PIC '99' INIT (00), 00000210 21 | 02 ÅR PIC '99' INIT (00), 00000220 22 | 1 H_DATO_UT_PK DEF H_DATO_UT CHAR (08) ; 00000230 23 | 00000240 24 | /* ************ */ 00000250 25 | IF IN_DATO > 0 THEN 00000260 26 | DO; 00000270 27 | H_DATO_IN = IN_DATO; 00000280 28 | H_DATO_UT = H_DATO, BY NAME; 00000290 29 | END; 00000320 30 | ELSE 00000330 31 | H_DATO_UT_PK = 0 ; 00000340 32 | 00000350 33 | UT_DATO = H_DATO_UT_PK; 00000360 34 | 00000370 35 | RETURN (UT_DATO); 00000380 36 | END KONV_HÅMD_DMHÅ; 00000390 37 | 00000400 38 | -------------------------------------------------------------------------------- /src/R0019992.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/11-97 12.54.39 AV SPA7339 */00000000 2 | /* *************************************************************** */ 00000010 3 | /* PROC FOR Å SNU DATO OG SETTE INN SLASH */ 00000020 4 | /* HHÅÅMMDD -> DD/MM/HHÅÅ */ 00000030 5 | /* *************************************************************** */ 00000040 6 | KONV_HÅMD_DBMBHÅ: PROC(IN_DATO) RETURNS(CHAR (10) ); 00000050 7 | DCL IN_DATO PIC '(8)9'; 00000060 8 | DCL UT_DATO CHAR (10) ; 00000070 9 | 00000080 10 | DCL 1 H_DATO, 00000090 11 | 02 HH PIC '99' INIT (00), 00000100 12 | 02 ÅR PIC '99' INIT (00), 00000110 13 | 02 MM PIC '99' INIT (00), 00000120 14 | 02 DD PIC '99' INIT (00), 00000130 15 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 00000140 16 | 00000150 17 | DCL 1 H_DATO_UT, 00000160 18 | 02 DD PIC '99' INIT (00), 00000170 19 | 02 S1 CHAR (1) INIT ('/'), 00000180 20 | 02 MM PIC '99' INIT (00), 00000190 21 | 02 S2 CHAR (1) INIT ('/'), 00000200 22 | 02 HH PIC '99' INIT (00), 00000210 23 | 02 ÅR PIC '99' INIT (00), 00000220 24 | 1 H_DATO_UT_PK DEF H_DATO_UT CHAR (10) ; 00000230 25 | 00000240 26 | /* ************ */ 00000250 27 | IF IN_DATO > 0 THEN 00000260 28 | DO; 00000270 29 | H_DATO_IN = IN_DATO; 00000280 30 | H_DATO_UT = H_DATO, BY NAME; 00000290 31 | IF H_DATO_UT.DD = 0 THEN 00000300 32 | H_DATO_UT.DD = 01; 00000310 33 | END; 00000320 34 | ELSE 00000330 35 | H_DATO_UT_PK = 0 ; 00000340 36 | 00000350 37 | UT_DATO = H_DATO_UT_PK; 00000360 38 | 00000370 39 | RETURN (UT_DATO); 00000380 40 | END KONV_HÅMD_DBMBHÅ; 00000390 41 | 00000400 42 | -------------------------------------------------------------------------------- /src/R0019993.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 30/11-98 12.07.31 AV SPA7339 */00000000 2 | /* SIST ENDRET 30/11-98 12.07.02 AV SPA7339 */00000010 3 | /* *************************************************************** */ 00000020 4 | /* PROC FOR Å HENTE DATO MED 8 BYTE I FORMAT HHAAMMDD */ 00000030 5 | /* *************************************************************** */ 00000040 6 | DATE_8BYTE: PROC RETURNS(CHAR (08) ); 00000050 7 | DCL UT_DATO CHAR (08) ; 00000060 8 | 00000070 9 | DCL 1 H_DATO CHAR (17); 00000080 10 | 00000090 11 | DCL (SUBSTR, DATETIME) BUILTIN; 00000100 12 | /* ************ */ 00000110 13 | H_DATO = DATETIME; 00000120 14 | UT_DATO = SUBSTR(H_DATO,1,8); 00000130 15 | RETURN (UT_DATO); 00000140 16 | END DATE_8BYTE; 00000150 17 | 00000160 18 | -------------------------------------------------------------------------------- /src/R0019994.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.07.07 13.01.24 AV JDA7339 */ 2 | /* SIST ENDRET 26/11-97 12.54.39 AV SPA7339 */ 3 | /* *************************************************************** */ 4 | /* PROC FOR KONVERTERING AV DATO 6 CHAR / 7 CHAR TIL 9 CHAR */ 5 | /* DD.MND.ÅR -> HHÅR.MND.DD */ 6 | /* *************************************************************** */ 7 | KONV_HÅMD_MHÅ: PROC(IN_DATO) RETURNS(PIC '(06)9' ); 8 | DCL IN_DATO PIC '(8)9'; 9 | DCL UT_DATO PIC '(06)9' ; 10 | 11 | DCL 1 H_DATO, 12 | 02 HH PIC '99' INIT (00), 13 | 02 ÅR PIC '99' INIT (00), 14 | 02 MM PIC '99' INIT (00), 15 | 02 DD PIC '99' INIT (00), 16 | 1 H_DATO_IN DEF H_DATO PIC '99999999'; 17 | 18 | DCL 1 H_DATO_UT, 19 | 02 MM PIC '99' INIT (00), 20 | 02 HH PIC '99' INIT (00), 21 | 02 ÅR PIC '99' INIT (00), 22 | 1 H_DATO_UT_PK DEF H_DATO_UT CHAR (06) ; 23 | 24 | /* ************ */ 25 | IF IN_DATO > 0 THEN 26 | DO; 27 | H_DATO_IN = IN_DATO; 28 | H_DATO_UT = H_DATO, BY NAME; 29 | END; 30 | ELSE 31 | H_DATO_UT_PK = 0 ; 32 | 33 | UT_DATO = H_DATO_UT_PK; 34 | 35 | RETURN (UT_DATO); 36 | END KONV_HÅMD_MHÅ; 37 | 38 | -------------------------------------------------------------------------------- /src/R0019996.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 14/01-98 15.48.23 AV SPA7339 */00000000 2 | /* ***************************************************************** */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R0019996 - F_GYLDIG_DATO */00000030 5 | /* PROGRAMMERER: PATHAK MAY 1997. */00000040 6 | /*HENSIKT: */00000050 7 | /* FUNKSJONEN KONTROLLERER OM ET NUMERISK FELT PÅ SEKS */00000060 8 | /* KARAKTERER REPRESENTERER EN RIKTIG DATO I DETTE ÅRHUNDRET. */00000070 9 | /* DERSOM DATOEN ER KORREKT RETURNERES '1'B, DERSOM */00000080 10 | /* DATOEN IKKE ER KORREKT RETURNERES '0'B. */00000090 11 | /*PARAMETER INN: */00000100 12 | /* DATO_ÅMD. */00000110 13 | /*PARAMETER UT: */00000120 14 | /* RETUR. */00000130 15 | /*BRUK: */00000140 16 | /* IF ^ F_GYLDIG_DATO(DATO_ÅMD) THEN (SKRIV FEILMELDING) */00000150 17 | /* ***************************************************************** */00000160 18 | %PAGE; 00000170 19 | F_GYLDIG_DATO: PROC(DATO_ÅMD) RETURNS(BIT(1)); 00000180 20 | DCL 00000190 21 | DATO_ÅMD PIC '(8)9', 00000200 22 | DAG DEF DATO_ÅMD POS(7) PIC '99', 00000210 23 | MND DEF DATO_ÅMD POS(5) PIC '99', 00000210 24 | ÅR DEF DATO_ÅMD POS(1) PIC '9999', 00000220 25 | MNDTAB(12) DEC FIXED(2) INIT(31,28,31,30,31,30,31,31,30,31,30,31), 00000230 26 | RETUR BIT(1) INIT('1'B), 00000240 27 | MOD BUILTIN; 00000250 28 | 00000260 29 | IF (MND < 1 ! MND > 12 )THEN 00000270 30 | RETUR = '0'B; 00000280 31 | ELSE 00000290 32 | IF ÅR < 0 THEN 00000300 33 | RETUR = '0'B; 00000310 34 | ELSE 00000320 35 | IF (DAG < 1 ! DAG > MNDTAB(MND)) THEN 00000330 36 | RETUR = '0'B; 00000340 37 | 00000350 38 | RETURN(RETUR); 00000360 39 | END F_GYLDIG_DATO; 00000370 40 | -------------------------------------------------------------------------------- /src/R0019997.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2000.07.07 13.01.26 AV JDA7339 */ 2 | F_FIX3_GYLDIG: 3 | PROC(P_FIX3 ) RETURNS (BIT(1)); 4 | DCL RETUR BIT(1) INIT('1'B); 5 | 6 | DCL P_PTR POINTER; 7 | DCL BIN_PTR POINTER; 8 | 9 | DCL P_FIX3 FIXED DEC(3,2); 10 | DCL P_FIX3_C BASED (P_PTR) CHAR(2); 11 | 12 | DCL H_FIX3 CHAR(2) INIT (0); 13 | DCL H_FIX3_1 CHAR (1) DEF H_FIX3 POS (2); 14 | 15 | 16 | DCL 1 BIN_2DEL BASED (BIN_PTR), 17 | 5 BIN_2_1 BIT (4), 18 | 5 BIN_2_2 BIT (4); 19 | 20 | P_PTR = ADDR(P_FIX3 ); 21 | BIN_PTR = ADDR(H_FIX3_1 ); 22 | 23 | H_FIX3 = P_FIX3_C; 24 | 25 | IF BIN_2_2 ^= '1100'B THEN 26 | RETUR = '0'B; 27 | 28 | RETURN(RETUR); 29 | END F_FIX3_GYLDIG; 30 | -------------------------------------------------------------------------------- /src/R001NB22.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 06/07-98 10.31.04 AV JDA7339 */00000000 2 | /* SIST ENDRET 27/01-98 10.57.07 AV SPA7339 */00000010 3 | /* **************************************************************** */ 00000020 4 | /*IDENTIFIKASJON: */ 00000030 5 | /* R001NB22 - PROSEDYRE I PLI */ 00000040 6 | /* PROGRAMMERER: HERMAN MARS 1991 */ 00000050 7 | /*HENSIKT: */ 00000060 8 | /* PENSJONSSTATUS OPPDATERES MED INFORMASJON FRA TRANSEN */ 00000070 9 | /*PROGRAMTILKNYTNINNG: */ 00000080 10 | /* FUNKSJONEN INCLUDES I BEHANDLINGA AV BARNEPENSJON */ 00000090 11 | /*BRUK: */ 00000100 12 | /* AJOURFØR_B02_MED_B6_TRANS */ 00000110 13 | /* */ 00000120 14 | /* **************************************************************** */ 00000130 15 | 00000140 16 | %SKIP(2); 00000150 17 | AJOURFØR_B02_MED_B6_TRANS: 00000160 18 | PROC(POS_I_TRANS); 00000170 19 | 00000180 20 | DCL 00000190 21 | POS_I_TRANS FIXED BIN(15); 00000200 22 | 00000210 23 | %SKIP; 00000220 24 | B02.PENSJONSTYPE1(BARN_IND) = 'N'; 00000230 25 | B02.NAVN (BARN_IND) = B6B.NAVN_BARN(POS_I_TRANS); 00000240 26 | B02.TKNR (BARN_IND) = B6B.TKNR(POS_I_TRANS); 00000250 27 | B02.SPRÅK(BARN_IND) = B6B.SPRÅK; 00000260 28 | B02.FØRSTE_GANG_REG(BARN_IND) = 'N'; 00000270 29 | 00000280 30 | B02.STATUS_KODE_HIST(BARN_IND)= ' '; 00000290 31 | B02.TT_ANV(BARN_IND) = 0; 00000300 32 | 00000310 33 | /* ************************************************************* */ 00000320 34 | /* DERSOM BARNET ER YNGSTE BARN */ 00000330 35 | /* ************************************************************* */ 00000340 36 | 00000350 37 | IF BARN_IND = 3 THEN 00000360 38 | DO; 00000370 39 | B02.PENSJONSTYPE2(BARN_IND) = 'P'; 00000380 40 | B02.NAVN(AVDØD_IND) = B6B.NAVN_DØD; 00000390 41 | END; 00000400 42 | ELSE 00000410 43 | B02.PENSJONSTYPE2(BARN_IND) = 'Ø'; 00000420 44 | 00000430 45 | 00000440 46 | END AJOURFØR_B02_MED_B6_TRANS; 00000450 47 | -------------------------------------------------------------------------------- /src/R001NC10.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 09/06-98 08.30.08 AV SPA7339 */00000000 2 | /* SIST ENDRET 27/01-98 13.12.04 AV SPA7339 */00000010 3 | /*IDENTIFIKASJON: */00000020 4 | /* R001NC10 - PROGRAM I PLI */00000030 5 | /* PROGRAMMERT AV SATISH 1991 */00000040 6 | /*HENSIKT: */00000050 7 | /* PROGRAMMET BEHANDLER BARNEDELEN. */00000060 8 | /*ENDRING: */00000070 9 | /* PROGRAMMET ER SKILT UT FRA R001NC04. */00000080 10 | /*BRUK: */00000090 11 | /* OVERFØR_BARN - OVERFØRING FRA MAP TIL ARBEIDSOMRÅDE */00000100 12 | /* */00000110 13 | /* */00000120 14 | %PAGE; /* */ 00000130 15 | /* ***************************************************************** */00000140 16 | /* */00000150 17 | /* PROSEDYREN OVERFØRER OPPL. OM BARN FRA SKJERMBILDET TIL */00000160 18 | /* F7_TRANS_OMR I KOM_OMR. */00000170 19 | /* */00000180 20 | /* ***************************************************************** */00000190 21 | OVERFØR_F7_BARN: 00000200 22 | PROC; 00000210 23 | %SKIP(2); 00000220 24 | DO A = 1 TO F7S.BT_ANT; 00000230 25 | IF FNR_BARNL(A) > 0 THEN 00000240 26 | F7B.FNR_BARN(A) = F_FELT_CHAR_PIC11 (FNR_BARNI (A)); 00000250 27 | 00000260 28 | IF RBTNL(A) > 0 THEN 00000270 29 | F7B.FELLES_BARN(A) = RBTNI(A); 00000280 30 | END; 00000290 31 | 00000300 32 | K = F7S.BT_ANT + 1; 00000310 33 | IF K < F7S.BT_ANT THEN 00000320 34 | DO; 00000330 35 | DO A = K TO F7S.BT_ANT; 00000340 36 | F7B.FNR_BARN(A) = 0; 00000350 37 | 00000360 38 | F7B.FELLES_BARN(A) = ' '; 00000370 39 | END; 00000380 40 | END; 00000390 41 | END OVERFØR_F7_BARN; 00000400 42 | -------------------------------------------------------------------------------- /src/R001U625.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET PÅ PROD 2004.12.17 14.33.16 AV JDA2970 */ 2 | /* SIST ENDRET PÅ TEST 2004.07.13 12.58.48 AV JDA2970 */ 3 | /* ================================================================= */ 4 | /* R001U625 FKS_UNNTAK_VENTETID(UNNTAK_VENTETID,REAKTIVISERING) */ 5 | /* ----------------------------------------------------------------- */ 6 | /* INKLUDERES I : R001U620 (22) */ 7 | /* S_KODE ER KODE FOR UNNTAK_VENTETID (S,X,BLANK) */ 8 | /* T_KODE ER KODE FOR REAKTIVISERING (S,X,BLANK) */ 9 | /* ================================================================= */ 10 | FKS_UNNTAK_VENTETID : PROC (S_KODE,T_KODE) RETURNS (FIXED DEC (5)); 11 | /* -------------------------------------------------------------- */ 12 | DCL S_KODE CHAR(1), 13 | T_KODE CHAR(1); 14 | DCL FEILMELDING FIXED DEC (5) INIT (0); 15 | /* -------------------------------------------------------------- */ 16 | SELECT (S_KODE); 17 | WHEN ('S') /* START SKJERM ATTFØRING */ 18 | IF B01.REAKTIVISERING(BER_SØ_IND) = 'J' & 19 | T_KODE ^= 'X' THEN 20 | /* KAN IKKJE STARTE VARIG UTEN STANS TIDSBEGR */ 21 | FEILMELDING = 438; 22 | WHEN ('X') /* SLUTT SKJERM ATTFØRING */ 23 | IF B01.UFØRPENS.UNNTAK_VENTETID(BER_SØ_IND) ^= 'J' THEN 24 | DO; 25 | /* ----------------------------------------------- */ 26 | /* VI AVVISER ALLE SOM SLUTTER FØR DE HAR STARTET */ 27 | /* ----------------------------------------------- */ 28 | FEILMELDING = 431; 29 | END; 30 | OTHER; /* STANSES I INPUTKONTROLL */ 31 | END; /* SELECT S_KODE */ 32 | /* -------------------------------------------------------------- */ 33 | /* OPPDATERER B02. DERSOM ALT ER OK */ 34 | /* -------------------------------------------------------------- */ 35 | IF FEILMELDING = 0 THEN 36 | IF S_KODE = 'S' THEN 37 | B02.UFØRPENS.UNNTAK_VENTETID(BER_SØ_IND) = 'J'; 38 | ELSE 39 | IF S_KODE = 'X' THEN 40 | B02.UFØRPENS.UNNTAK_VENTETID(BER_SØ_IND) = ' '; 41 | /* -------------------------------------------------------------- */ 42 | /* RETURNERER FEILKODE, 0 VISER AT ALT ER OK SÅ LANGT */ 43 | /* -------------------------------------------------------------- */ 44 | RETURN (FEILMELDING); 45 | 46 | END FKS_UNNTAK_VENTETID; 47 | -------------------------------------------------------------------------------- /src/R001UC10.pli: -------------------------------------------------------------------------------- 1 | /* SIST ENDRET 26/03-99 13.24.30 AV JDA7339 */00000000 2 | /* SIST ENDRET 26/02-99 09.12.46 AV JDA7339 */00000010 3 | /* SIST ENDRET 09/06-98 08.31.18 AV SPA7339 */00000020 4 | /* SIST ENDRET 25/05-98 14.17.38 AV HLA7339 */00000030 5 | /*IDENTIFIKASJON: */00000040 6 | /* R001UC10 - PROGRAM I PLI */00000050 7 | /* PROGRAMMERT AV SATISH 1991 */00000060 8 | /*HENSIKT: */00000070 9 | /* PROGRAMMET BEHANDLER BARNEDELEN. */00000080 10 | /*BRUK: */00000090 11 | /* OVERFØR_BARN - OVERFØRING FRA MAP TIL ARBEIDSOMRÅDE */00000100 12 | /* */00000110 13 | /* */00000120 14 | %PAGE; /* */ 00000130 15 | /* ***************************************************************** */00000140 16 | /* */00000150 17 | /* PROSEDYREN OVERFØRER OPPL. OM BARN FRA SKJERMBILDET TIL */00000160 18 | /* FO_TRANS_OMR I KOM_OMR. */00000170 19 | /* */00000180 20 | /* ***************************************************************** */00000190 21 | OVERFØR_FO_BARN: 00000200 22 | PROC; 00000210 23 | %SKIP(2); 00000220 24 | DO A = 1 TO FOS.BT_ANT; 00000230 25 | IF FNR_BARNL(A) > 0 THEN 00000240 26 | FOB.FNR_BARN(A) = F_FELT_CHAR_PIC11 (FNR_BARNI (A)); 00000250 27 | 00000260 28 | IF RBT_E0591L(A) > 0 THEN 00000270 29 | FOB.FELLES_ETTER0591(A) = RBT_E0591I(A); 00000280 30 | IF RBT_F0591L(A) > 0 THEN 00000290 31 | FOB.FELLES_FØR0591(A) = RBT_F0591I(A); 00000300 32 | END; 00000310 33 | 00000320 34 | K = FOS.BT_ANT + 1; 00000330 35 | IF K < FOS.BT_ANT THEN 00000340 36 | DO; 00000350 37 | DO A = K TO FOS.BT_ANT; 00000360 38 | FOB.FNR_BARN(A) = 0; 00000370 39 | 00000380 40 | FOB.FELLES_ETTER0591(A) = ' '; 00000390 41 | FOB.FELLES_FØR0591(A) = ' '; 00000400 42 | END; 00000410 43 | END; 00000420 44 | END OVERFØR_FO_BARN; 00000430 45 | --------------------------------------------------------------------------------