B982220D Parse String
Do Section 00050 // =-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
00051 // Split out OBNM VERS etc
00052 // Get OBJ VERS and extension from F986110.FUNDFU2
00053 // FNDFUF2 is stored as a string made up of "OBJ_VERS_JOBNBR_PDF"
00054 // =-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
00055 //
00056 BC Foundation - Future Use 2 (F986110.0) [FNDFUF2] = rtrim([BC Foundation - Future Use 2 (F986110.0) [FNDFUF2]], <Blank>)
00057
ParseString(
B98220D.ParseString)
BC Foundation - Future Use 2 (F986110.0) [FNDFUF2] -> szInputObjectID [OMWOBJID]
VA rpt_NameObjectOBNM [OBNM] <- szOutputObjectSegment [OMWOBJID]
"0" -> mnSegmentNumber [MATH01]
"_" -> cDelimiter [EV01]
ParseString(
B98220D.ParseString)
BC Foundation - Future Use 2 (F986110.0) [FNDFUF2] -> szInputObjectID [OMWOBJID]
VA rpt_VersionVERS [VERS] <- szOutputObjectSegment [OMWOBJID]
"1.00" -> mnSegmentNumber [MATH01]
"_" -> cDelimiter [EV01]
ParseString(
B98220D.ParseString)
BC Foundation - Future Use 2 (F986110.0) [FNDFUF2] -> szInputObjectID [OMWOBJID]
VA rpt_DocumentExtensionDCEX [DCEX] <- szOutputObjectSegment [OMWOBJID]
"3.00" -> mnSegmentNumber [MATH01]
"_" -> cDelimiter [EV01]
Or
You would need to do something like Find position in String and use the whole CSV line text.
Use the last found position of a found " to be your starting pos ready to find the next " then substr out that length of the text
SUBSTR and Find Pos in String
0004 // Find the | in OBJ|VERS
0005 Finds a char position in a string
BC Object Management Object Name (F98210)(OMWOBJID) -> BF szString
"|" -> BF cCharToFind
<Zero> -> BF mnStartingPosition
VA evt_mnPositionInString_MATH01 <- BF mnPositionFound
0006 VA evt_NameObject_OBNM = substr([BC Object Management Object Name (F98210)(OMWOBJID)],0,[VA evt_mnPositionInString_MATH01])
0007 VA evt_mnPositionInString_MATH01 = [VA evt_mnPositionInString_MATH01]+1
0008 VA evt_Version_VERS = substr([BC Object Management Object Name (F98210)(OMWOBJID)],[VA evt_mnPositionInString_MATH01],10)