/*
**  $VER: BLZ 3.710 (29.Jun 98)  **
**
**        © 1998 Gerald Froehlich
**
**  PROGRAMNAME:
**      BLZ
**
**  FUNCTION:
**      Kontrolliert BLZ-Eingabe
**
**  $HISTORY:
**
**   29 Jun 1998 : 003.710 :  unverändert
**   08 Feb 1998 : 0.01 : initial release
*/

OPTIONS RESULTS

F_neu = "6.282"

IF GetClip("F_Version") ~< F_neu THEN DO

  IF ~abbrev(ADDRESS(), "FIASCO.") THEN DO
    /* Get list of all available ports */

    ports = show("Ports")

    /* Search for a port of Fiasco */

    do i = 1 to words(ports)

        IF Abbrev(Word(ports, i), "FIASCO.") THEN DO
            /* A port of Fiasco has been found.
             * Now query Fiasco to return the port
             * name of the active database.
             */

            Address Value word(ports, i)

            GetAttr Project Name Active ARexx

            Address Value Result

            break
        end
    end
end

fiasco_port = address()

/* END Eröffnung */

    GetAttr Application SCREEN VAR screen
END
ELSE screen = GetClip('screenName')


IF (~show('l','rexxreqtools.library')) THEN
    call addlib('rexxreqtools.library',0,-30,0)

     ADDRESS FIASCO


F_GetFieldCont "BLZ"
Art = RESULT
     IF Length(Art) ~= 8 THEN DO
        CALL rtezrequest('Die BLZ muß  8 Stellen haben!',,,'rt_pubscrname='screen)
        F_SetFieldCont "KontoNr." "0"
        EXIT
    END


     IF Verify(Art,xrange('0','9')) ~= 0   THEN DO
         CALL rtezrequest('falsche Eingabe',,,'rt_pubscrname='screen)
         F_SetFieldCont "KontoNr." "0"
     END
a = SetClip("Virgin","0")