SET TERM ^ ;

CREATE OR ALTER PACKAGE TEST_PKG
AS
BEGIN
    PROCEDURE CHECK_PASSPORT_SERIAL(VAL VARCHAR(4));
END^

RECREATE PACKAGE BODY TEST_PKG
AS
BEGIN
    PROCEDURE CHECK_PASSPORT_SERIAL(VAL VARCHAR(4))
    AS
    BEGIN
        VAL = :VAL;
    END
END^

SET TERM ; ^