* @OBTAIN  MAKPO - ðPOþéTATø DSCB1 (é DSCB3/2)                          TAIN0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 21.07.89   BPEMñ 01.57   *  æOKõC  TAIN0002
*  @OBTAIN JFCB=<AäPEC JFCB>,AREA=<AäPEC OâìACTé 164 éìé 268 âAêT>,     TAIN0003
*          [DSCB3=YES]                                                  TAIN0004
*   DSCB3 PAúMEýAETCñ B OâìACTé CO CMEýEHéEM 102 âAêTA !                TAIN0005
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    TAIN0006
         MACRO                                                          TAIN0007
&NAME    @OBTAIN &JFCB=,&AREA=,&DSCB3=NO                                TAIN0008
&NAME    IHBLADR 1,&JFCB,'JFCB - AäPEC JFCB'                            TAIN0009
         IHBLADR 0,&AREA,'AREA - AäPEC OâìACTé'                         TAIN0010
         AIF  ('&DSCB3' NE 'YES' AND '&DSCB3' NE 'Y').CALL              TAIN0011
         LNR  0,0                - DSCB3 NEEDS                          TAIN0012
.CALL    @CALL OBTAINPG                                                 TAIN0013
         MEND                                                           TAIN0014