Ce programme permet de passer de la PCS ou de la PCS-ESE à la nomenclature des FAP2009 *******************************************************************; ***** format etendu SAS de la PCS-ESE vers la FAP-2009 ******; *******************************************************************; value $FAP9PCx "111a","111f","121a","121f","122a","131a","131f" = "A0Z00" "111d","111e","121d","121e","131d","131e" = "A0Z01" "122b" = "A0Z02" "100x","691e" = "A0Z40" "691b" = "A0Z41" "533b","691f" = "A0Z42" "691a" = "A0Z43" "111b","121b","131b" = "A1Z00" "111c","121c","131c" = "A1Z01" "691c" = "A1Z40" "631a" = "A1Z41" "691d" = "A1Z42" "471a","471b","480a" = "A2Z70" "381a","381b","381c" = "A2Z90" "122c" = "A3Z00" "692a" = "A3Z40" "656a","656b","656c" = "A3Z41" "389c","480b" = "A3Z90" "671a","671b","671c","671d" = "B0Z20" "681a" = "B0Z21" "211h","621a","621b","621d","621e","621f","621g" = "B1Z40" "211a","632a" = "B2Z40" "214d","632b" = "B2Z41" "624d" = "B2Z42" "632c" = "B2Z43" "211c","632e" = "B2Z44" "681b" = "B3Z20" "211d","632f" = "B4Z41" "211b","632d","632j" = "B4Z42" "211e","633a" = "B4Z43" "211f","632g","632h" = "B4Z44" "621c","651a" = "B5Z40" "472b" = "B6Z70" "211j","472c","472d" = "B6Z71" "472a" = "B6Z72" "481a","481b" = "B6Z73" "312f","382b" = "B7Z90" "382a","382c" = "B7Z91" "672a" = "C0Z20" "622a","622b","622c","622d","622e","622f","622g" = "C1Z40" "473b","473c" = "C2Z70" "473a" = "C2Z71" "482a" = "C2Z80" "673a","673b" = "D0Z20" "628c","628d" = "D1Z40" "623f","623g" = "D1Z41" "211g","212b","623a","634b" = "D2Z40" "623b" = "D2Z41" "623c","623d","623e" = "D2Z42" "673c","682a" = "D3Z20" "624a","624b","624c","624e","624g" = "D4Z40" "624f" = "D4Z41" "474b","474c" = "D6Z70" "474a" = "D6Z71" "212c","212d","483a" = "D6Z80" "674a" = "E0Z20" "674b","674c" = "E0Z21" "674d" = "E0Z22" "674e" = "E0Z23" "676e" = "E0Z24" "625a","626a" = "E1Z40" "625c" = "E1Z41" "625e","625f","625g" = "E1Z42" "625h","626b","637a" = "E1Z43" "626c" = "E1Z44" "479a","625b","628f" = "E1Z46" "628g" = "E1Z47" "475a","475b","485a" = "E2Z70" "484a","484b" = "E2Z80" "675a" = "F0Z20" "627a","627b","627c" = "F1Z40" "213a","635a" = "F1Z41" "675b" = "F2Z20" "214a","214b" = "F3Z40" "627d" = "F3Z41" "675c" = "F4Z20" "214c","627e","627f" = "F4Z41" "476a","476b","485b" = "F5Z70" "628a","634d" = "G0A40" "628b","633d" = "G0A41" "216c","633b" = "G0A42" "632k" = "G0A43" "216b","634a" = "G0B40" "212a","216a","633c","634c" = "G0B41" "477b","477c","477d","486a","486b","486c","486d" = "G1Z70" "479b" = "G1Z71" "486e" = "G1Z80" "380a","383b","384b","385b","386d","386e" = "H0Z90" "387e","387f" = "H0Z91" "387c","387d" = "H0Z92" "676a","676b","676c","676d" = "J0Z20" "652a","652b","653a" = "J1Z40" "487a","487b" = "J1Z80" "217a","526e","642a","642b" = "J3Z40" "641b" = "J3Z41" "643a","644a" = "J3Z42" "217b","218a","641a" = "J3Z43" "651b","654a","654b","654c" = "J3Z44" "655a" = "J4Z40" "546a" = "J4Z60" "466c","477a" = "J4Z80" "546d","546e" = "J5Z60" "546c" = "J5Z61" "546b" = "J5Z62" "226b","466a","466b" = "J5Z80" "389a","451d" = "J6Z90" "389b" = "J6Z91" "387b" = "J6Z92" "685a" = "K0Z20" "210x","214e","214f","217d","637b","637d" = "K0Z40" "542a","542b" = "L0Z60" "543a","543b","543c" = "L1Z60" "313a","541a","541b","541c","541d" = "L2Z60" "543d","543e","543f","543g","543h" = "L2Z61" "461a","461b","461c" = "L3Z80" "461e","461f" = "L4Z80" "461d" = "L4Z81" "312c","312d","372a","372b","373a","373b","373c","373d" = "L5Z90" "372e" = "L5Z91" "372c","372d" = "L5Z92" "232a","233a","233b","233c","233d" = "L6Z00" "231a","371a" = "L6Z90" "544a" = "M0Z60" "478a" = "M1Z80" "478b","478c","478d" = "M1Z81" "388a","388c" = "M2Z90" "388b" = "M2Z91" "388e" = "M2Z92" "312e","383a","384a","385a","386a","386b","386c" = "N0Z90" "342e","342f","342g","342h" = "N0Z91" "522a" = "P0Z60" "523a","523b","523c","523d","524a","524b","524c","524d" = "P0Z61" "533c" = "P0Z61" "521a","521b" = "P0Z62" "451c" = "P1Z80" "451e","451f","451g","451h" = "P1Z81" "451a","451b" = "P1Z82" "331a","332a","332b","333b","333e","333f","351a" = "P2Z90" "333c","333d" = "P2Z91" "334a" = "P2Z92" "312a","312b","312g" = "P3Z90" "333a" = "P3Z91" "531a","531c","532a","532b","532c","533a" = "P4Z60" "531b" = "P4Z61" "452a","452b" = "P4Z80" "545a","545b","545c","545d" = "Q0Z60" "467a","467b" = "Q1Z80" "467c","467d" = "Q1Z81" "376a","376b","376c","376d" = "Q2Z90" "226a","376e","376f" = "Q2Z91" "551a" = "R0Z60" "552a","554j" = "R0Z61" "219a","554a" = "R1Z60" "554b","554c" = "R1Z61" "554d","554e","554f","554g" = "R1Z62" "556a" = "R1Z63" "553a","553b","553c","554h" = "R1Z66" "555a" = "R1Z67" "225a","463a","463b","463c","463d" = "R2Z80" "463e" = "R2Z83" "220x","222a","222b","223a","223b","223c","223d","223e" = "R3Z80" "223f","223g","223h","462a","462b","462d" = "R3Z80" "221a","221b" = "R3Z81" "462c","462e" = "R3Z82" "374b","374c","374d" = "R4Z90" "382d","383c","384c","385c","387a","388d" = "R4Z91" "374a" = "R4Z92" "226c","376g" = "R4Z93" "215d","683a" = "S0Z20" "215b","625d","636a" = "S0Z40" "215c","636b" = "S0Z41" "215a","636c" = "S0Z42" "561d" = "S1Z20" "636d" = "S1Z40" "488a" = "S1Z80" "561e","561f" = "S2Z60" "561a","561b","561c" = "S2Z61" "468a" = "S2Z80" "468b" = "S2Z81" "224a","224b","224c","224d" = "S3Z00" "377a","488b" = "S3Z90" "217c","562a","562b" = "T0Z60" "563c" = "T1Z60" "563b" = "T2A60" "563a" = "T2B60" "564a" = "T3Z60" "534a","534b" = "T3Z61" "217e","525a","525b","525c","684a" = "T4Z60" "525d" = "T4Z61" "628e","684b" = "T4Z62" "227c","227d","564b" = "T6Z61" "464a" = "U0Z80" "464b" = "U0Z81" "375a","375b" = "U0Z90" "372f","425a" = "U0Z91" "352a","353a" = "U0Z92" "353b","353c","465b","637c" = "U1Z80" "465c" = "U1Z81" "465a" = "U1Z82" "354b","354c","354d","354e","354f","354g" = "U1Z91" "352b" = "U1Z92" "354a" = "U1Z93" "526a","526b","526c","526d" = "V0Z60" "431a","431b","431c","431d","431f","431g" = "V1Z80" "431e" = "V1Z81" "311a","311b","344a","344b","344c" = "V2Z90" "311c" = "V2Z91" "311e" = "V2Z92" "311f","344d" = "V2Z93" "433a","433d" = "V3Z70" "433b","433c" = "V3Z71" "432a","432b","432c","432d" = "V3Z80" "311d" = "V3Z90" "343a" = "V4Z80" "434a","434d","434e","434f","434g" = "V4Z83" "434b","434c" = "V4Z85" "227a" = "V5Z00" "435a","435b" = "V5Z81" "424a" = "V5Z82" "422d","422e" = "V5Z84" "421a","421b" = "W0Z80" "341a","422a","422b","422c" = "W0Z90" "227b","341b" = "W0Z91" "342a","342b","342c","342d" = "W0Z92" "423a","423b" = "W1Z80" "335a" = "X0Z00" "441a","441b" = "X0Z01" other = "ZZZZZ"; run;