BAD_SCAN_ENUM perl string to flist function

The following input flist results in an error when using the pcmif::pin_perl_str_to_flist() function. The error was BAD_SCAN_ENUM:

my $in_flist = qq{
0 PIN_FLD_POID POID [0] 0.0.0.1 /search -1 0
0 PIN_FLD_FLAGS INT [0] 256
0 PIN_FLD_TEMPLATE STR [0] "select X from /purchased_product where F1 = V1 "
0 PIN_FLD_ARGS ARRAY [1] allocated 20, used 1
1 PIN_FLD_ACCOUNT_OBJ POID [0] ${account_poid}
0 PIN_FLD_RESULTS ARRAY [*]
1 PIN_FLD_POID POID [0] NULL
1 PIN_FLD_PRODUCT_OBJ POID [0] NULL
1 PIN_FLD_SERVICE_OBJ POID [0] NULL
1 PIN_FLD_QUANTITY DECIMAL [0] NULL
1 PIN_FLD_STATUS ENUM [0] NULL
1 PIN_FLD_STATUS_FLAGS INT [0] NULL
};


This gave me headaches until I realized the error. The correct flist is given below:

my $in_flist = qq{
0 PIN_FLD_POID POID [0] 0.0.0.1 /search -1 0
0 PIN_FLD_FLAGS INT [0] 256
0 PIN_FLD_TEMPLATE STR [0] "select X from /purchased_product where F1 = V1 "
0 PIN_FLD_ARGS ARRAY [1] allocated 20, used 1
1 PIN_FLD_ACCOUNT_OBJ POID [0] ${account_poid}
0 PIN_FLD_RESULTS ARRAY [*]
1 PIN_FLD_POID POID [0] NULL
1 PIN_FLD_PRODUCT_OBJ POID [0] NULL
1 PIN_FLD_SERVICE_OBJ POID [0] NULL
1 PIN_FLD_QUANTITY DECIMAL [0] 0
1 PIN_FLD_STATUS ENUM [0] 0
1 PIN_FLD_STATUS_FLAGS INT [0] 0
};