SOURCE FILE . . . . . . . QRPGLESRC MEMBER . . . . . . . . . QRCODE dcl-f QRCODE printer; dcl-ds FN; FN5 char(1); FN6 char(1); FN7 char(1); FN8 char(1); FN9 char(1); FN10 char(1); FN11 char(1); FN12 char(1); FN13 char(1); end-ds; // FN5 = data is in EBCDIC , and ignore escape sequences FN5 = x'C0'; // FN6 = EBCDIC data is code page 500 FN6 = x'01'; // FN7 = "smallest symbol" FN7 = x'00'; // FN8 = level L - 7% recovery - x'00' // level M - 15% recovery - x'01' // level Q - 25% recovery - x'02' // level H - 30% recovery - x'03' FN8 = x'02'; // FN9 = structured append sequence indicator FN9 = x'00'; // FN10 = total number structured append sequences FN10 = x'00'; // FN11 = structured append parity data FN11 = x'00'; // FN12 = UCC/EAN FNC1 and Industry FNC1 flags FN12 = x'00'; // FN13 = Application Identifier (AI) for Industry FNC1 FN13 = x'00'; // Append the data to be barcoded to the special QR code bytes and write it out. FIELD1 = FN + 'This is a QR code for these 50 characters -- abcde'; FIELD2 = FN + 'This is a QR code for these 50 characters -- abcde'; FIELD3 = 'This is a PDF417 code 30 chars'; FIELD4 = 'This is a MAXICODE code 30 chars'; FIELD5 = 'This is a DATAMATRIX code 100 characters we shall - see just how long I can go and is it readable?????'; write RECORD1; *inlr = *on;