江门市网站建设_网站建设公司_Linux_seo优化

FUNCTION conversion_exit_zfh_output . *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" REFERENCE(INPUT) *" EXPORTING *" REFERENCE(OUTPUT) *"---------------------------------------------------------------------- *&amp;--- 负号前置 转换例程 DATA: output1(20) TYPE c, output2(20), outsign TYPE p DECIMALS 2. IF input IS NOT INITIAL. outsign = shift_right( val = input sub = |%| ). * outsign = input. IF outsign < 0. outsign = outsign * ( -1 ). WRITE outsign TO output1 . CONDENSE output1 NO-GAPS . output1 = |-{ output1 }%|. ELSE. WRITE outsign TO output1 . CONDENSE output1 NO-GAPS . output1 = |{ output1 }%|. ENDIF. ELSE. CLEAR output1. ENDIF. WRITE output1 TO output2 RIGHT-JUSTIFIED . CONDENSE output2 NO-GAPS . output = output2. ENDFUNCTION.