将Base64字符串保存为IFS上的jpg (在RPGLE中)

**FREE

// Base64字符串
Dcl-S Base64String Char(1000) Inz('SGVsbG8gV29ybGQh');

// IFS文件路径
Dcl-S FilePath Char(100) Inz('/path/to/image.jpg');

// 解码Base64字符串
Dcl-S DecodedData Char(1000);
DecodedData = %xlate('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=':
                      'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/') %subst(Base64String: 1: %len(Base64String));

// 创建文件
Dcl-DS FileHandle Like(File) Inz;
Dcl-S FileExists Char(1);

Exec SQL SET OPTION COMMIT = *NONE;

Exec SQL
  SELECT COUNT(*)
    INTO :FileExists
    FROM SYSIBM.SYSDUMMY1
    WHERE EXISTS (SELECT 1 FROM SYSIBM.SYSTABLES WHERE FILE_NAME = :FilePath);

If FileExists = '1';
  Exec SQL
    CALL QP2TERM('rm ' || :FilePath);
EndIf;

Exec SQL
  CALL QP2TERM('touch ' || :FilePath);

Open FileHandle :FilePath O_RDWR;

// 写入数据
Write FileHandle DecodedData;

// 关闭文件
Close FileHandle;

*INLR = *ON;