Select Code to Download

use lib 'C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities';
use AXControl;
...
    my $x = $dp->Save;
    print "save rc $x\n";
    print "Err msg " . $dp->ErrMsg;

package DocPart;

...
    
}
1;

SQL select column_name, column_key, character_maximum_length, numeric_
+scale, data_type, numeric_precision, datetime_precision from informat
+ion_schema.columns where table_schema = 'paperless' and table_name = 
+'document_part' order by ordinal_position
SQL RowCount 4
...
save rc 0
Err msg Filename required for new document.
C:\Users\Jay\Desktop\SBS DEV\CODE\perl\test scripts>