Brother PT-P900 Reference Manual page 34

7.1.3.2. P-touch Template Printing command preparation
All command data in the ST language is as follows.
wSendData[0]:=H691B;
wSendData[1]:=H0361;
sInitStr:='^II^TS001^SS01,';
sObj1Str:=CONCAT('Model:',sModelStr,',');
TRD(TRUE,uDateTime);
BINDA_U(TRUE,uDateTime[0],sYearStr);
BINDA_U(TRUE,uDateTime[1],sMonthStr);
BINDA_U(TRUE,uDateTime[2],sDayStr);
sYearStr:=RIGHT(sYearStr,4);
sMonthStr:=RIGHT(sMonthStr,2);
sDayStr:=RIGHT(sDayStr,2);
sObj2Str:=CONCAT(sDayStr,'/',sMonthStr,'/',sYearStr,',');
sObj3Str:=CONCAT('Lot:',sLotNumSTR,',');
BINDA_U(TRUE,uSerialNum,sObj4Str);
uSerialNum:=uSerialNum+1;
sObj4Str:=CONCAT('U12345-L',RIGHT(sObj4Str,5));/* create barcode string */
sPrintStartStr:='^FF';
sTempStr:=CONCAT(sInitStr,sObj1Str,sObj2Str,sObj3Str,sObj4Str,sPrintStartStr);/* concatenate strings */
wTransDataSize:=len(sTempStr)+4;
SET(TRUE,bSendRequest);
RST(TRUE,bSetDataFlg);
/* ESC ia 3 */
/* ESC ia 3 */
/* initialize, select template number 1, and set separator to "," */
/* create model string */
/* read clock data */
/* convert 16-bit data to decimal ASCII string */
/* convert 16-bit data to decimal ASCII string */
/* convert 16-bit data to decimal ASCII string */
/* extract 4 digits */
/* extract 2 digits */
/* extract 2 digits */
/* create date string */
/* create lot number string */
/* convert 16-bit data to decimal ASCII string */
/* increase serial number by one */
/* start printing */
/* transmission data length */
/* set transmission request */
/* reset transmission data set flag */
32
MELSEC iQ-F Brother Label Printer Sample Program Reference Manual