<> c H' 03FNPAIR - QUICK RETURN OF DESCRIPTION FOR A CODEZ " $3NUMBER$PK:C(10),NUMBER:C(1):itype=SELECT iopt1=One/1 iopt2=Two/2 iopt3=Three/3:,ff:c(10) $$nd  PRPLANSTATUS/D  PRPLANSOURCE/'3IF YFIELD$="PRELCLASS" THEN GOTO 12300  PRPLANSHIPDIR0 MHITEMSHIPFLAG188  $ K3GETTING DESC FROM TEMPLATE#( 3OUTTA HERE&.3GATHER DESC/KEY PAIRS.9$$ $BNAME0p$.9$$ $PNAME0p$ .<$$  $TERRNAME0p$ /%$ /P/Print//M/Premium//R/Rerun//9$$ $RNAME0p$/O$G/CE/01//CR/07//CS/11//DI/10//NA/05//NE/02//SE/04//SW/09//TR/08//WE/03///:8/D3---- PRPLAN STATUS/N73LET PAIRS$=STBL("PAIRS"+YFIELD$,ERR=12120); GOTO 12180/Xj$b/Not Shipped/A//Shipped/S//Inprocess/I//In Transit/T//Returned/R//To Be Dropshipped/D//Waiting/W///b$'PAIRS/$/#(/3--- PRPLAN SOURCE/$$/On Demand/A//Auto Order/E///$0#(0 3-- PREL CLASS0 '$/Premium/M//Print/P//Re-Run/R//0*$0f#(0p30z100 0$010.$//۩ө/000803-- PRPLAN SHIPDIR0  $X0Y$/۩' shipdir_O/O//۩' shipdir_E/E//۩' shipdir_S /S// /X/0$1.#(183--- MHITEM SHIPFLAG1L2$*/Not-Reviewed/N//Reviewed/R//Ship Hold/H//1V$'PAIRS1$1#(K K $K*$// KZK $/K(,$/KZ8K_]KA3^1000 ----- GET THE DESC FROM THE SELECT OPTIONS IN THE TEMPLATEK$L5$$ ө iopt۩(LL- /   $LL4$!/ " ! !L"' " $ LLLL3DONEN#(Z #ZH$+# .$## #ZZ8#Z]PAIRSPFILE JBBRANDSPTPL JBBRANDSPDESCBKEYS PRPROGRAMS PRPROGRAMSPKEYSJBTERRJBTERRTKEYSCLASSESJBDIVSJBDIVSDKEYS DIVCODESPRECKYYYYY1YYYYYY1YCODEYFIELDYFORMATYDESCDUMMYTCOLUMNIOPTIOPTIOPTVIOPTVY YFORMAT1KEYDECODE^